Posted: 27th Sep 2006 01:39
Here is a an adaptation of a rotating screen image. Instead of spliting an image onscreen into four boxes and rotating it clockwise, I've spilt it into eight boxes.
[
rem Load a bitmap onto the screen
LOAD BITMAP "picture.bmp"
rem Begin loop
DO
rem Grab all eighths of the screen
GET IMAGE 1,0,0,160,240
GET IMAGE 2,160,0,320,240
GET IMAGE 3,320,0,480,240
GET IMAGE 4,480,0,640,240
GET IMAGE 5,480,240,640,480
GET IMAGE 6,320,240,480,480
GET IMAGE 7,160,240,320,480
GET IMAGE 8,0,240,160,480
rem Paste in their neighbors eighth
PASTE IMAGE 1,160,0
PASTE IMAGE 2,320,0
PASTE IMAGE 3,480,0
PASTE IMAGE 4,480,240
PASTE IMAGE 5,320,240
PASTE IMAGE 6,160,240
PASTE IMAGE 7,0,240
PASTE IMAGE 8,0,0
rem Small delay
SLEEP 1000
rem End loop
LOOP]