home *** CD-ROM | disk | FTP | other *** search
- name 'Spirals and Cylinders'
- objname 'Spiral01'
- radius 1
- detail 7
- mindetail 7
- scale 20
- length 1
- etrop .00
-
- axiom RA(0)
- #define t 1 as "Type,Spiral,Cylinder"
- #define d 0 as "Nodes,Diamonds,Spheres,Stars"
- #define j 85 as "Number of nodes, Few,Many",20,500
- #define c 5 as "Divergence,0,9",0,9
- #define a (c/10+137)
- #define h (35.3/100)
- #define x 6 as "Node Size,Small,Large",1,20
- #define y (x/10)
- #define r 11 as "Radius (Cylinder Only),Narrow,Wide ",5,20
- #define w (r/3.5)
-
- iterations j
-
- rules
- R >> !(w)
- A(n) : t=0 >> +(a)[f(n^.5)^(90)S]A(n+1)
- A(n) : t=1 >> [&(90)f(r)S]f(h)/(a)A(n)
- S : d=0&t=0 >> ,(20.55*y)~(plants\diamond.3ds)
- S : d=1&t=0 >> ,(.65*y)~(plants\sphere.3ds)
- S : d=2&t=0 >> ^(90),(.22*y)~(plants\star.3ds)
- S : d=0&t=1 >> ,(20.96*y)~(plants\diamond.3ds)
- S : d=1&t=1 >> ,(1.2*y)~(plants\sphere.3ds)
- S : d=2&t=1 >> ^(90),(.42*y)~(plants\star.3ds)
-
-