set display mode 1600,1200,32
sync on
REM load an image
load image "w.jpg", 4
REM create a memblock from the image
make memblock from image 1, 4
width = memblock dword(1, 0)
height = memblock dword(1, 4)
depth = memblock dword(1, 8)
B = memblock byte(1,12)
G = memblock byte(1,13)
R = memblock byte(1,14)
A = memblock byte(1, 15)
for x = 1 to width
for y = 1 to height
location = ((y-1)*width + x - 1)*4 + 12
B = memblock byte(1,location)
G = memblock byte(1,location+1)
R = memblock byte(1,location+2)
A = memblock byte(1, location+3)
next y
next x
write memblock dword 1, 12, rgb(90,90,90)
make image from memblock 3, 1
repeat
sprite 1,mousex(), mousey(), 4
sprite 2,mousex()+width+1, mousey(), 3
sync
until spacekey()