home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / STRUCT1.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  747 b   |  32 lines
  1. name 'Two Dimensional Curves'
  2. objname '2DCurve01'
  3. // Adapted from ABOP by HCH
  4.  
  5. scale .05
  6.  
  7. axiom ?(-)#(2)MAL
  8. #define t 0 as "Type,Gosper Hex,Koch Circle,Koch Lattice,Koch Quilt"
  9. #define j 3 as "Complexity, Low,High",1,4
  10. #define w 1 as "Width,Thin,Medium,Thick"
  11. #define d 2 as "Detail,Low,Medium,High,Very High"
  12. iterations  j
  13. angle      90
  14. detail      3
  15. length    100
  16. radius     20
  17. bendthresh 30
  18. etrop     .00
  19.  
  20. rules
  21. M >> !(w+1*8)
  22. L : t!0 >> F-F-F-F
  23. A : d=0 >> #(2)?(-)
  24. A : d=1 >> #(3)?(*)
  25. A : d=2 >> #(4)?(#)
  26. A : d=3 >> #(7)?(*)
  27. F : t=1 >> FF-F-F-F-F-F+F
  28. F : t=2 >> FF-F+F-F-FF
  29. F : t=3 >> FF-F-F-F-FF
  30. L : t=0 >> FL+(60)FR+(120)FR-(60)FL-(120)FLFL-(60)FR+(60)
  31. R : t=0 >> -(60)FL+(60)FRFR+(120)FR+(60)FL-(120)FL-(60)FR
  32.