home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / FLOWER3.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  701 b   |  32 lines
  1. name 'Mycelis Muralis (Wall Lettuce)'
  2. objname 'Mycelis01'
  3. radius 5
  4. scale .03
  5. etrop .002
  6. #define j 80 as "Age,Young,Old  ",50,90
  7. #define r 1 as "Flower Type,Red Mapped,Violet,Yellow"
  8. iterations   j
  9. axiom     '(1)I(20)FA(0)
  10. ignore / + K X W C ^ : |
  11.  
  12. rules
  13.  
  14. S < A(t) : * >> T(0)K
  15. A(t) : t>0 >> A(t-1)
  16. A(t) : t=0 >> [+(30)G]F/(137.5)A(2)
  17. S < F : * >> FS
  18. F > T(c) : * >> T(c+1)FU(c-1)
  19. U(c) < G : * >> I(c)FA(2)
  20. I(c) : c>0 >> I(c-1)
  21. I(c) : c=0 >> S
  22. S >> X
  23. T(c) >> X
  24.  
  25. //K >> [^C/W////W////W////W////W]
  26. // W >> [^'(3)]['(4){&&&&//f(40)-------:f(40)+:f(40)|-:f(40)+:f(40)}'(1)]
  27.  
  28. K : r=0 >> ~(plants\flow1rt.3ds)
  29. K : r=1 >> ~(plants\flow2vh.3ds)
  30. K : r=2 >> ~(plants\flow2yh.3ds)
  31.  
  32.