Sorry your browser is not supported!

ink rgb(255,0,0),0
box 0,0,100,100
ink rgb(0,255,0),0
box 50,0,100,100
get image 1,0,0,100,100

do

	sprite 1,0,0,1

	if mouseclick() then 
		col = getColorPoint(1,mouseX(),mouseY())
	text 100,400,str$(col)
	text 100,420,str$(rgbr(col))
	
	sync

LOOP
Function getColorPoint(Image,x,y)
	width = image width(image)
	height = image height(image)
	color as dword
	memNum = 1
	if memblock exist(memNum) then delete memblock memNum
	make memblock from image memNum,image
	
	position = (y*Width+x)*4+12

	if position => 0 AND position < memSize
		redValue = memblock byte(memNum,position)
		greenValue = memblock byte(memNum,position+1)
		blueValue = memblock byte(memNum,position+2)
	endif
	color = rgb(redValue,greenValue,blueValue)
	
	delete memblock memNum
Endfunction color

function getMemblockPixel(mem as dword, x as dword, y as dword)
   if memblock dword(mem, 8) <> 32
      ` Other approaches would be needed for 16- or 24-bit 
      ` image memblocks. The default DBP image is 32-bits however, 
      ` so unless you manually create something else this shouldn't 
      ` happen.
      print memblock dword(mem, 8) + "-bit images not supported!"
      exitfunction 0
   endif
   
   if x >= memblock dword(mem, 0) or y >= memblock dword(mem, 4)
      ` Invalid pixel
      print "The specified pixel is out of the memblock image's bounds!"
      exitfunction 0
   endif
   
   ` The first DWORD in the image memblock represents its width, 
   ` the second its height. The third DWORD, as used above, is its 
   ` depth in bits (not bytes) per pixel.
   ` After this 12-byte header follows the pixel map. So with a 32-bit
   ` image we have one DWORD per pixel. Therefore the calculations 
   ` below will retrieve the desired pixel.
   pixel  = (y * memblock dword(mem, 0)) + x
   colour = memblock dword(mem, 12 + (pixel * 4))
endfunction colour