home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / FLOWER2.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  643 b   |  28 lines
  1. name 'Fictional Flowering Plant'
  2. objname 'Flower01'
  3. scale .05
  4. length 10
  5. angle 18
  6. radius  1.5
  7. etrop .002
  8.  
  9. #define j 6 as "Size,Small,Large",3,6
  10. #define e 0 as "Leaves,Flat,Textured"
  11. #define c 0 as "Flower Colors,Red,Violet,White,Yellow"
  12. #define x 15
  13.  
  14. iterations   j
  15. axiom        +(9)P
  16.  
  17. rules
  18.  
  19. P >> '(1)I\(10)/.99(20)+[P+K]-.1-//[--L]I[+.1+L]-[PH]++PH
  20. I >> FS[//&&&L][//^^^L]HS
  21. // The H adds a one iteration delay to the node
  22. H >> F
  23. S >> SHS
  24. L : e=0 >> ['(5){+:f-:f:f-:f+|+:f-:f:f-:f}]
  25. L : e=1 >> ~(plants\leaf2gt.3ds)
  26. K >> [^C/W////W////W////W////W]
  27. W >> [^'(3)!!F]['(c+7){&&&&//f(3)-------:f(x)+:f(x)|-:f(x)+:f(x)}]
  28.