Greyscale an image

[Adaz]

A simpler approach to greyscale an image.

Code Select Expand

a=LoadNewFxImage("c:\Program Files\PlayBasic\Projects\GFX\animal.jpg")

DrawImage a,50,50,False
Greyscaleimage(a)
DrawImage a,300,100,False

Sync
WaitKey


Psub Greyscaleimage(img)
   LockBuffer
   RenderToImage img
   p=Point(0,0)
   For y =0 To GetImageHeight(img)-1
      For x=0 To GetImageWidth(img)-1
      p=FastPoint(x,y): FastDot x,y,RgbGreyScale(p)
      Next x
   Next y
   UnLockBuffer
   RenderToScreen
EndPsub





[kevin]

erm...

Code Select Expand


a=LoadNewFxImage("c:\Program Files\PlayBasic\Projects\GFX\animal.jpg")

DrawImage a,50,50,False
GrayScaleImage a
DrawImage a,300,100,False

Sync
WaitKey


[Adaz]

Oops, thanks  ;D
If I'd typed gray and not grey...