// RGB <-> r,g,b function Red(color) Red = mod(color, 256) EndFunction red function blue(color) blue = mod((color/256),256) EndFunction blue function green(color) green = mod((color/(256*256)), 256) EndFunction green Function RGB(r,g,b) color = r +g*256 + b*256*256 EndFunction color