943,632 Members | Top Members by Rank

Ad:
Jan 16th, 2008
0

Changing a pixel color that is "close" to another color

Expand Post »
I store in an image in a RES file. Because it is so large, I first convert it from a BMP to a JPG. Then I load the JPG from the RES file, convert it to a BMP, and can now manipulate the image on a pixel by pixel basis. I want to convert all the "White" pixels to cllMyLightBlue.

It's easy to change one color in a BMP into another color:

Pascal and Delphi Syntax (Toggle Plain Text)
  1. IF Bitmap.Canvas.Pixels[i,j] = clWhite
  2. THEN Bitmap.Canvas.Pixels[i,j] := clMyLightBlue

The problem is - in the process of converting from BMP to JPG back to BMP, some "bleeding" of colors, near the edges, has occurred. While the white areas of the image look basically white, they are not exactly. This approach works pretty well:

Pascal and Delphi Syntax (Toggle Plain Text)
  1. delta := 100000; // determine by trial and error
  2. IF (Bitmap.Canvas.Pixels[i,j] > (clWhite-delta)) and
  3. F (Bitmap.Canvas.Pixels[i,j] < (clWhite-delta)) then
  4. THEN Bitmap.Canvas.Pixels[i,j] := clMyLightBlue

Since the pixel "number" is an amalgam of RGB numbers, it seems that a better approach would be to change the pixel color only if all 3 RGB values were within some tolerance level...perhaps a delta of 10.

How can I test, and replace, specific RGB vlues of a pixel? Is there a better way to clean up my image.
Reputation Points: 10
Solved Threads: 0
Light Poster
bob on whidbey is offline Offline
32 posts
since Oct 2007
Jan 17th, 2008
0

Re: Changing a pixel color that is "close" to another color

The fact that that works is fluke.

What is the pixel format for your image? (pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, something else?)

If it is pf24bit then every three bytes are a tuple (blue, green, red) --in that order.

If you need to learn more about the different formats then see efg's technical notes on manipulating scanline data.

You might also want to peruse efg's Color Reference page.

Hope this helps.
Featured Poster
Reputation Points: 1140
Solved Threads: 229
Postaholic
Duoas is offline Offline
2,039 posts
since Oct 2007
Jan 17th, 2008
0

Re: Changing a pixel color that is "close" to another color

I too was surprised at how well my kludgy approach seemed to work. Thanks for pointing out efg's tech note.

Since "white" has 255 in all RGB bits I don't have to test for something higher than than. The following code workes very well when I set 'maxd' to 255-50.

with Row[i] do
if (rgbtRed > maxd) and (rgbtGreen > maxd) and (rgbtBlue > maxd) then
Row[i] :=LightBlueBits;
Reputation Points: 10
Solved Threads: 0
Light Poster
bob on whidbey is offline Offline
32 posts
since Oct 2007

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.
Message:
Previous Thread in Pascal and Delphi Forum Timeline: help with install new clx component in Delphi7
Next Thread in Pascal and Delphi Forum Timeline: Help with linked list in Turbo Pascal!





About Us | Contact Us | Advertise | Acceptable Use Policy
Forum Index | Build Custom RSS Feed


Follow us on Twitter


© 2011 DaniWeb® LLC