Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

The 20 Line Challenge / (Not so circular) Circles

Author
Message
IanM
Retired Moderator
21
Years of Service
User Offline
Joined: 11th Sep 2002
Location: In my moon base
Posted: 4th Mar 2003 01:22
Link
Just a pretty effect - flying through the hoops.

Run in 640x480x32.

sync on : sync rate 0 : hide mouse

for s=1 to 4 : read r, g, b : ink rgb(r,g,b),0
for r=40 to 50 step 2 : circle 50,50,r : next r
get image s,0,0,100,100 : sprite s,320,240,s : offset sprite s,50,50
next s

Scale=0 : Angle=0 : cls
while scancode() = 0
inc Scale,10 : inc Angle,2
for s=1 to 4 : MyScaleSprite(s,Scale-(250*s),Angle) : next s
sync : cls
endwhile
end

function MyScaleSprite(sp,sc,sa)
if sc
Back to top
Profile PM Email Website
IanM
Retired Moderator
21
Years of Service
User Offline
Joined: 11th Sep 2002
Location: In my moon base
Posted: 4th Mar 2003 01:23
Link
Darn, try this instead.

Back to top
Profile PM Email Website
Attreid
21
Years of Service
User Offline
Joined: 27th Nov 2002
Location:
Posted: 4th Mar 2003 18:03
Link
one word : beautiful
( oh yes, and one smiley )

I'm following John, but I'm not john.
Lol, it is funnier in french
Back to top
Profile PM Email
Back to top

Login to post a reply

Server time is: 2024-04-27 02:25:25
Your offset time is: 2024-04-27 02:25:25