Is a little bit stupid, but funny.
Code: Select all
SCREEN 640, 480
FrameLimit 60
Dim phi#(1000), v#(1000)
n=10
For i=0 to n
v(i) = i + 21
phi(i) = 0
Next i
s1=LoadImage("png/bild18.bmp")
s2=LoadImage("png/stupid.bmp")
While KeyDown(27)=0
DrawImage s1,0,0
For i=0 to n
phi(i) = phi(i) + v(i) * 0.05
DrawImage s2,320+Cos(phi(i))*200, 200+Sin(phi(i))*40
Next i
DrawScreen OFF
Wend