Code archives/Graphics/Setimagemask

This code has been declared by its author to be Public Domain code.

Download source code

Setimagemask by dynaman
(Posted 22 years ago)
Set the mask color of an image after it has been loaded 
Function setimagemask(p_image:Timage, p_red,p_green,p_blue)
	Local l_maskrgb
	Local l_maskargb
	Local l_pixelrgb
	Local l_pixelraw
	Local l_x,l_y
	Local l_pix1:Tpixmap
	
	l_maskrgb = p_red * 65536 + p_green * 256 + p_blue
	l_pix1 = LockImage(p_image)
	For l_x = 0 To ImageWidth(p_image)
		For l_y = 0 To ImageHeight(p_image)
			l_pixelraw = ReadPixel(l_pix1,l_x,l_y)
			l_pixelrgb = l_pixelraw & 16777215
			If l_pixelrgb = l_maskrgb Then
				WritePixel(l_pix1,l_x,l_y,l_maskrgb)
			End if
		Next 
	next

	UnlockImage(p_image)
	Release l_pix1
End function

Comments

CP510
(Posted 22 years ago)
I'll sum that up to...
MaskImage img,r,b,g
And it does it after it has been loaded!

dynaman
(Posted 22 years ago)
That is pretty much it. Sorry if I wasn't clear - docs are not my thing...

(tu) ENAY
(Posted 21 years ago)
This throws an error in the newest version of Blitzmax because you should be doing:-

For l_x = 0 To ImageWidth(p_image)-1
For l_y = 0 To ImageHeight(p_image)-1

:)

Code Archives Forum