Read/WritePixel Rgb Conversion

Isn't it...

	Function GenRgb( red,green,blue,alpha=255  )
RGB = (alpha Shl 24) | (Red Shl 16) | (Green Shl 8) | Blue 
		Return rgb
		
	End Function

Example...

	Function GenRgb( red,green,blue,alpha=255  )
RGB = (alpha Shl 24) | (Red Shl 16) | (Green Shl 8) | Blue 
		Return rgb
		
	End Function
	
	Function GetRGB(argb:Int,a Var,r Var, g Var, b Var)
	a=(argb Shr 24) & $ff
	r=(argb Shr 16) & $ff
	g=(argb Shr 8) & $ff
	b=argb & $ff
End Function

Global alpha:Int,red:Int,green:Int,blue:Int

GetRGB($ff00ff00,alpha,red,green,blue)
Print alpha + " " + red + " " + green + " " + Blue
my_rgb=genrgb(red, green, blue, alpha)
GETRGB(my_rgb,alpha, red, green, blue)
Print alpha + " " + red + " " + green + " " + Blue