bild = loadimage ( "bild.jpg" )

imagewidth = imagewidth ( bild )

lockbuffer imagebuffer( bild )
for x = 0 to imagewidth - 1
for y = 0 to imagewidth - 1
hue = readpixelfast( x, y, imagebuffer( bild )) and 255
select farbe
case 0 ; rot malen
writepixelfast x, y, hue shl 16, imagebuffer( bild )

case 1 ; grün malen
writepixelfast x, y, hue shl 8, imagebuffer( bild )

case 2 ; blau malen
writepixelfast x, y, hue, imagebuffer( bild )

end select

next
next

Graphics 500,300,16,2
SetBuffer BackBuffer()

image = LoadImage("heightmap.BMP")
DrawBlock image,256,0

SeedRnd MilliSecs()
ImageColor image,Rand(255),Rand(255),Rand(255)
DrawBlock image,0,0

Flip
WaitKey()
End

Function ImageColor(image,r#,g#,b#)
   SetBuffer ImageBuffer(image)
   LockBuffer ImageBuffer(image)
   For x = 0 To ImageWidth(image)
      For y = 0 To ImageHeight(image)
         prgb= ReadPixelFast(x,y,ImageBuffer(image))
         pr   = (prgb And $FF0000)/$10000
         pg   = (prgb And $FF00)/$100
         pb   =  prgb And $FF
         
         er   = Float(pr) * Float(r#/255.00)
         eg   = Float(pg) * Float(g#/255.00)
         eb   = Float(pb) * Float(b#/255.00)
         ergb= er*$10000 + eg*$100 + eb
         WritePixelFast x,y,ergb,ImageBuffer(image)
      Next
   Next
   UnlockBuffer ImageBuffer(image)
   SetBuffer BackBuffer()
End Function