Setimagemask

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

Setimagemask by dynaman

2004

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

Baystep Productions

2005

I'll sum that up to...
MaskImage img,r,b,g
And it does it after it has been loaded!

dynaman

2005

That is pretty much it. Sorry if I wasn't clear - docs are not my thing...

(tu) ENAY

2006

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