hmmm....those were good rel
:wink:
QB NewZeland? Thinking Lord of The Rings... he he he...
:wink:
I suppose I could have made this smaller... oh well. It's definetly good to do something like this to get your mind off of stuff though.
Code:
screen 18,32
Do
For Sz = 15 to 345 step 15
W!=W!+.01
For Rad! = 0 to 6.283186 Step .1
Line(320+Sz*Sin(Rad!),240+(((Sz/1.5)*COS(Rad!)))+(75*SIN(W!+(Sz/36))))- _
(320+Sz*Sin(Rad!+.1),240+(((Sz/1.5)*COS(Rad!+.1)))+(75*SIN(W!+(Sz/36)))),RGB(0,0,128+127*COS(W!+(Sz/36)))
Line Step -(320+(Sz-15)*Sin(Rad!+.1),240+((((Sz-15)/1.5)*COS(Rad!+.1)))+(75*SIN(W!+((Sz-15)/36)))),RGB(0,0,128+127*COS(W!+(Sz/36)))
NEXT Rad!,Sz
Sleep 5
CLS
LOOP While Inkey$=""
That was alsome, heh,.. :wink:
I'm starting to hate the SCREEN 1x, y, z, t Statement....
Quote:I'm starting to hate the SCREEN 1x, y, z, t Statement....
Why not get Von's IDE just so you can veiw examples?
wow :o that was awesome.. heh, really sweet... teach me how you did that sometime eh?
Naw, if I did that then you can kiss SpaceMerc good bye.
Code:
screen 18,32,2
ScreenSet 0,1
Do
For Sz = 15 to 345 step 15
W!=W!+.01
For Rad! = 0 to 6.283186 Step .1
Line(320+Sz*Sin(Rad!),240+(((Sz/1.5)*COS(Rad!)))+(75*SIN(W!+(Sz/36))))- _
(320+Sz*Sin(Rad!+.1),240+(((Sz/1.5)*COS(Rad!+.1)))+(75*SIN(W!+(Sz/36)))),RGB(0,0,128+127*COS(W!+(Sz/36)))
Line Step -(320+(Sz-15)*Sin(Rad!+.1),240+((((Sz-15)/1.5)*COS(Rad!+.1)))+(75*SIN(W!+((Sz-15)/36)))),RGB(0,0,128+127*COS(W!+(Sz/36)))
NEXT Rad!,Sz
ScreenCopy
CLS
LOOP While Inkey$=""
dr daves code, with page flipping; its smoother ;)