Welcome Guest! You need to login or register to make posts.

Notification

Icon
Error

Options
Go to last post Go to first unread
BarryP  
#1 Posted : Wednesday, April 5, 2006 8:34:42 AM(UTC)
BarryP

Rank: Member

Groups: Member
Joined: 3/23/2006(UTC)
Posts: 17

Have a look at this image:

[Image was removed]

I want to adjust it for example to look like:

[Image was removed]

Please help. Thanks

Edited by user Friday, December 18, 2009 8:37:01 PM(UTC)  | Reason: Not specified

Andrew  
#2 Posted : Wednesday, April 5, 2006 2:09:57 PM(UTC)
Andrew

Rank: Advanced Member

Groups: Member, Administration
Joined: 8/2/2003(UTC)
Posts: 876

Thanks: 2 times
Was thanked: 27 time(s) in 27 post(s)
Here is a code VBScript code snippet:

Code:
<%
Dim objBitmap
Set objBitmap = Server.CreateObject("GraphicsMill.Bitmap")
objBitmap.LoadFromFile Server.MapPath("original.jpg")
objBitmap.ColorAdjustment.Desaturate
objBitmap.ColorAdjustment.ChannelBalance 255, 98, 0, 0
objBitmap.SaveToStream Response
%>


I believe you will easy adapt it for VB6.

Play with parameters of ChannelBalance to get the necessary tint. Last three parameters are RGB values. The higher value you pass, the more strong this color will affect the result.

Hope this helps.

P.S. BTW, if the original image is always grayscale, you can omit Desaturate method call to increase performance.

Edited by user Thursday, December 20, 2007 4:51:21 PM(UTC)  | Reason: Not specified

BarryP  
#3 Posted : Wednesday, April 5, 2006 3:20:46 PM(UTC)
BarryP

Rank: Member

Groups: Member
Joined: 3/23/2006(UTC)
Posts: 17

Absolute Genius!!! Thanks!
Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.