Round About
Posted: Tue Jul 29, 2014 11:55 pm
Hi,
Is a little bit stupid, but funny.
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
It's similiar to one effect I made in my