home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / TREE1.LS < prev    next >
Encoding:
Text File  |  1992-11-05  |  1.5 KB  |  42 lines
  1. name 'Weeping Willow'
  2. objname 'Willow01'
  3. scale .15
  4. objscale .495
  5. length 25
  6. rfactor .6
  7. dfactor .5
  8. detail 10
  9. etrop .004
  10.  
  11.  
  12. #define j 6 as "Age,Young,Old  ",4,7
  13. #define a 45 as "Orientation,Skinny,Wide  ",18,45
  14. #define d 0 as "Leaves,Sparse,Full"
  15. #define x 136 // Divergence Angle 1 90 180 90 180
  16. #define y 171 // Divergence Angle 2 130 260 130 260
  17. #define m 20 // Elongation Rate Slow Fast 0 50
  18. #define l (m/100+1)
  19. #define w 1.732
  20. #define s 25
  21. #define b 8
  22.  
  23.  
  24. iterations j
  25.  
  26. axiom '(19)Y(1)!(1.1)!(1.1)F(150)/(45)A
  27.  
  28. rules
  29. Y(q) >> Y(q+1)
  30. A >> !(1)C(50,1)[&.1(a)N(50,5)C(50,1)A]/.1(x)[&.1(a)N(50,5)C(50,1)A]/.1(y)[&.1(a)N(50,5)C(50,1)A]
  31. C(i,k) : k!0 >> C(i*l,k-1)
  32. C(i,k) : k=0 >> F(i*l)
  33. N(i,k) >> [h(i)L(k+1)]N(i*.8,k+1)
  34. F(i) >> F(i*l)
  35. !(i) >> !(i*w)
  36. h(p) : q!j >> h(p*l)
  37. h(p) : q=j >> f(p*l)
  38. L(p) : q!j >> L(p+1)
  39. L(p) : d=1&q=j&p<7 >> [!(2)'(5)*^(50)~(plants\leaf8gt.3ds)F^.5(b)F~(plants\leaf8gt.3ds)^.5(b)F^.5(b)F~(plants\leaf8gt.3ds)^.5(b)~(plants\leaf8gt.3ds)F^.5(b)~(plants\leaf8gt.3ds)F^.5(b)F~(plants\leaf8gt.3ds)^.5(b)F^.5(b)*^(90)~(plants\leaf8gt.3ds)^.99(b)F~(plants\leaf8gt.3ds)&.99(b)F~(plants\leaf8gt.3ds)^.99(b)F&.99(b)F~(plants\leaf8gt.3ds)^.99(b)F&.99(b)F^.99(b)F&.99(b)~(plants\leaf8gt.3ds)F'(19)]
  40. L(p) : d=0&q=j&p<7 >> [!(2)'(5)*^(50)~(plants\leaf8gt.3ds)FF^.5(b*2)FF^.5(b*2)FF~(plants\leaf8gt.3ds)^.5(b*2)~(plants\leaf8gt.3ds)FF^.5(b*2)FF^.5(b*2)*^(90)~(plants\leaf8gt.3ds)^.99(b*2)FF~(plants\leaf8gt.3ds)^.99(b*2)FF&.99(b*2)~(plants\leaf8gt.3ds)F'(19)]
  41.  
  42.