home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / STRUCT5.LS < prev    next >
Encoding:
Text File  |  1992-11-05  |  894 b   |  35 lines

  1. name 'Spirals and Cylinders' 
  2. objname 'Spiral01'
  3. radius 1
  4. detail 7
  5. mindetail 7
  6. scale 20
  7. length 1
  8. etrop .00 
  9.  
  10. axiom RA(0)
  11. #define t 1 as "Type,Spiral,Cylinder"
  12. #define d 0 as "Nodes,Diamonds,Spheres,Stars"
  13. #define j 85 as "Number of nodes, Few,Many",20,500
  14. #define c 5 as "Divergence,0,9",0,9
  15. #define a (c/10+137)
  16. #define h (35.3/100)
  17. #define x 6 as "Node Size,Small,Large",1,20
  18. #define y (x/10)
  19. #define r 11 as "Radius (Cylinder Only),Narrow,Wide  ",5,20
  20. #define w (r/3.5)
  21.  
  22. iterations j
  23.  
  24. rules
  25. R >> !(w)
  26. A(n) : t=0 >> +(a)[f(n^.5)^(90)S]A(n+1)
  27. A(n) : t=1 >> [&(90)f(r)S]f(h)/(a)A(n)
  28. S : d=0&t=0 >> ,(20.55*y)~(plants\diamond.3ds)
  29. S : d=1&t=0 >> ,(.65*y)~(plants\sphere.3ds)
  30. S : d=2&t=0 >> ^(90),(.22*y)~(plants\star.3ds)
  31. S : d=0&t=1 >> ,(20.96*y)~(plants\diamond.3ds)
  32. S : d=1&t=1 >> ,(1.2*y)~(plants\sphere.3ds)
  33. S : d=2&t=1 >> ^(90),(.42*y)~(plants\star.3ds)
  34.  
  35.