I have this 20 line weird thingymajig

Author

Message

Mnemonix

21

Years of Service

User Offline

Joined: 2nd Dec 2002

Location: Skaro

Posted: 17th Jan 2003 00:38

Link

+ Code Snippet

set display mode 1024,768,16:oy=384:ox= 512:do
a#=wrapvalue(a#+0.4):b#=wrapvalue(b#+1.5)
inc c#,0.7
cls
   for d= 1 to 10
      for f= 1 to 10
x=ox+(d*sin(a#))*(4*sin(b#))*(d+f*sin(c#))
y=oy+(f*cos(b#))*(4*cos(a#))*(d+f*cos(c#))
ink RGB(255,128,0),0
       dot   x,y
         line oldx,y,oldy,x
         ink RGB(0,128,192),0
         line y,oldx,x,oldy
         oldx=x
         oldy=y
         oldx2=oldx
         oldy2=oldy
      next f
   next d
loop

i hope u like it

If you forget one little thing i shall have you shaved sterilised and destroyed: Jeffrey Goines

Back to top

Profile PM Email Website

gbuilder

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: New Zealand

Posted: 19th Jan 2003 08:48

Link

Nice effect. Would look even better if it rotated or did that thing in random directions.

gbuilder.

AMD900mhz, 256mb Ram, 64mb GForce2 MX400 Graphics card, Windows 98se.

Back to top

Profile PM Email

SoulMan

21

Years of Service

User Offline

Joined: 22nd Nov 2002

Location: In a house somewhere on the planet earth

Posted: 20th Jan 2003 23:49

Link

Here, I made your code a little more Exciting.

+ Code Snippet

set display mode 1024,768,16:oy=384:ox= 512:do
a#=wrapvalue(a#+0.4):b#=wrapvalue(b#+1.5)
inc c#,0.7
cls
   for d= 1 to 10
      for f= 1 to 10
x=ox+(d*sin(a#))*(4*sin(b#))*(d+f*sin(c#))
y=oy+(f*cos(b#))*(4*cos(a#))*(d+f*cos(c#))
ink RGB(255,128,0),0
       dot   x,y
         line oldx,y,oldy,x
         ink RGB(0,128,192),0
         line y,oldx,x,oldy
         oldx=x
         oldy=y
         oldx2=oldx
         oldy2=oldy
      next f
   next d

loop
SoulMan

I am my own and own my am I

Back to top

Profile PM

SoulMan

21

Years of Service

User Offline

Joined: 22nd Nov 2002

Location: In a house somewhere on the planet earth

Posted: 20th Jan 2003 23:50

Link

+ Code Snippet

set display mode 1024,768,16:oy=384:ox= 512:do
a#=wrapvalue(a#+0.4):b#=wrapvalue(b#+1.5)
inc c#,0.7
cls
   for d= 1 to 10
      for f= 1 to 10
x=ox+(d*sin(a#))*(4*sin(b#))*(d+f*sin(c#))
y=oy+(f*cos(b#))*(4*cos(a#))*(d+f*cos(c#))
ink RGB(255,128,0),0
       dot   x,y
         line oldx,y,oldy,x
         ink RGB(0,128,192),0
         line y,oldx,x,oldy
         oldx=x
         oldy=y
         oldx2=oldx
         oldy2=oldy
      next f
   next d
loop

Try this instead, selecting stuff to put in the code snippet format can be a little difficult at times.
SoulMan

I am my own and own my am I

Back to top

Profile PM

Kangaroo2

22

Years of Service

User Offline

Joined: 26th Sep 2002

Location: United Kingdom

Posted: 26th Jan 2003 16:32

Link

TrIpPy! Thats cool, like an old Win 3.1 Screensaver, can't remember what it was called...

Back to top

Profile PM Email Website

Sorry your browser is not supported!

The 20 Line Challenge / I have this 20 line weird thingymajig