Posts: 3,288
Threads: 167
Joined: Nov 2001
Here, it's part ot the QBNZ 9 line screensaver compo. I entered as Jelly. The bouncinng ball(spheremapped) can be found in this forum. Forgot where.
http://qbnz.com/pages/forum/viewtopic.ph...sc&start=0
Posts: 503
Threads: 31
Joined: Feb 2005
hmmm....those were good rel
:wink:
i]"But...it was so beautifully done"[/i]
Posts: 2,404
Threads: 153
Joined: Jan 2005
QB NewZeland? Thinking Lord of The Rings... he he he...
:wink:
Kevin (
x.t.r.GRAPHICS)
Posts: 1,774
Threads: 62
Joined: Aug 2003
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$=""
Posts: 2,404
Threads: 153
Joined: Jan 2005
That was alsome, heh,.. :wink:
Kevin (
x.t.r.GRAPHICS)
Posts: 503
Threads: 31
Joined: Feb 2005
I'm starting to hate the SCREEN 1x, y, z, t Statement....
i]"But...it was so beautifully done"[/i]
Posts: 2,404
Threads: 153
Joined: Jan 2005
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?
Kevin (
x.t.r.GRAPHICS)
Posts: 442
Threads: 107
Joined: Feb 2005
wow :o that was awesome.. heh, really sweet... teach me how you did that sometime eh?
url=http://www.random-seed.net]
[/url]
Posts: 503
Threads: 31
Joined: Feb 2005
Naw, if I did that then you can kiss SpaceMerc good bye.
i]"But...it was so beautifully done"[/i]