home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / SHRUB1.LS < prev    next >
Encoding:
Text File  |  1992-11-05  |  917 b   |  32 lines
  1. name 'Oil Palm'
  2. objname 'OilPalm01'
  3. scale 1.2
  4. radius 15
  5. taper ON
  6. bendthresh 30
  7. axiom         R
  8. etrop .001
  9.  
  10. #define       k  3 "Age,Young,Old  ",1,6
  11. #define       j  ((k+4)*6)
  12. #define       b  (k*2)
  13. #define       d  (b+2)
  14. #define       e  (d/2)  // growth delay: d-1=all same length, 0 = max variation
  15. iterations  j
  16.  
  17. rules
  18. R >> Y(2)['(74)#(10)!(k+4)!(k+1)F(40)]f(10)c(0) 
  19. Y(q) >> Y(q+1)
  20. c(t) : t<d >> c(t+1)ss
  21. s : q>e >> [/.99(720)f.99(17)^(90)&.60(90)?(*)'(74)#(5)!(2.2)!(1)F.3(30)^(10)['(66)!(1)#(3)?(*)T(10,10)]['(67)!(1.8)?(-)#(2)S(10,10)]]
  22. T(x,y) : x>0 >> MT(x-1,y)
  23. S(x,y) : x>0 >> NS(x-1,y)
  24. T(x,y) : x=0 >> ^(10)!T(y-1,y-1)
  25. S(x,y) : x=0 >> ^(10)!S(y-1,y-1)
  26. M : q=j >> F(3)
  27. N >> [f.1(3)/.3(95)*-.3(95)&.3(31)L(4)^.2(25)!(1.5)L(3)^.2(17)!(1.5)!(.5)L(3)][/.3(95)*+.3(93)&.3(31)L(4)^.2(25)!(1.5)L(3)^.1(17)!(1.5)!(.05)L(3)]f(3)
  28. L(x) : q!j >> L(x*(1+(1/(x*12))))
  29. L(x) : q=j >> F.3(x)
  30.  
  31.  
  32.