Round About

Do you have something to share with us? A tip for newbies, perhaps? Post it here.
Post Reply
peter
Active Member
Posts: 123
Joined: Mon Oct 22, 2007 2:31 pm

Round About

Post by peter »

Hi,
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
Attachments
png.zip
(114.96 KiB) Downloaded 538 times
User avatar
CCE
Artist
Artist
Posts: 650
Joined: Mon Aug 27, 2007 9:53 pm

Re: Round About

Post by CCE »

A funny worm :) It's similiar to one effect I made in my oldcool 2010 intro.
Post Reply