REM Project: fuch
REM Created: 9/28/2007 2:55:44 PM
REM
REM ***** Main Source File *****
REM
Load Image "ufo.png",1
Sprite 1,0,0,1
Iwidth = Sprite Width(1)
Iheight = Sprite Height(1)
Dim ucolarr(Iwidth-1,Iheight-1) as integer
Dim uangarr(Iwidth-1,Iheight-1) as integer
Dim udist(Iwidth-1,Iheight-1) as integer
Colstart = 12
RedColor as Integer
GreenColor as Integer
BlueColor as Integer
Delete Sprite 1
Make Memblock From Image 256,1
Global Pixels as Integer = 12
For x = 1 to Iwidth-1
For y = 1 to Iheight-1
BlueColor = Memblock Byte(256,Pixels)
GreenColor = Memblock Byte(256,Pixels+1)
RedColor = Memblock Byte(256,Pixels+2)
Pixels=Pixels+4
Next y
Next x
Delete Memblock 256
For x = 0 to Iwidth-1
For y = 0 to Iwidth-1
Dot x,y,ucolarr(x,y)
Next y
Next x
Wait Key
Your signature has been deleted by a moderator because this joke is getting old.