screen 20,8
Const PI = 3.14159265
dim a as string
dim x as integer
dim y as integer
dim t as integer
dim xx as integer
dim yy as integer
dim fixed as integer
dim moving as integer
dim offset as integer
start:
randomize timer
fixed=int(rnd*200)+1
moving=int(rnd*200)-200
offset=int(rnd*200)+1
for t=1 to 1800000
x = (fixed+moving)*cos(t*(pi/180)) -
(moving+offset)*cos(((fixed+moving)/moving)*t*(pi/180))
y = (fixed+moving)*sin(t*(pi/180)) -
(moving+offset)*sin(((fixed+moving)/moving)*t*(pi/180))
if t=1 then
line (x+500,y+400)-(x+500,y+400),6
endif
line -(x+500,y+400),6
locate 1,1
print t
a = inkey
if a = "q" then end 0
next t
sleep
Right, basically that just draws a single random generated Spirograph.
You may have noticed i'm using a massive loop to make sure it completes
the cycle. Thing is, I know the length to complete the cycle can be
calculated, but I just don't know where to start.
Any help would be appreciated, thanks. :)
--------------= Posted using GrabIt =----------------
------= Binary Usenet downloading made easy =---------
-= Get GrabIt for free from http://www.shemes.com/
=-
|
