home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / STRUCT2.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  520 b   |  26 lines
  1. //              Hilbert         //
  2.  
  3. name   'Hilbert Space-Filling Curve'
  4. objname 'Hilbert01'
  5. angle       90
  6. radius      20
  7. length     100
  8. smooth      ON
  9. scale       .1
  10. etrop      .00 
  11.  
  12. #define j 3 as "Size, Tiny,Large",1,4
  13. #define t 1 as "Detail,Low,Medium,High"
  14.  
  15. iterations   j
  16. axiom        RA
  17.  
  18. rules
  19. R : t=0 >> #(3)
  20. R : t=1 >> #(4)
  21. R : t=2 >> #(7)
  22. A >> B-F+CFC+F-D&F^D-F+&&CFC+F+B//
  23. B >> A&F^CFB^F^D^^-F-D^|F^B|FC^F^A//
  24. C >> |D^|F^B-F+C^F^A&&FA&F^C+F+B^F^D//
  25. D >> |CFB-F+B|FA&F^A&&FB-F+B|FC//
  26.