home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / TREE5.LS < prev   
Encoding:
Text File  |  1992-11-05  |  1.4 KB  |  37 lines
  1. name 'Fictional Tropical Tree'
  2. objname 'Tropical01'
  3. radius 30
  4. length 20
  5. detail 10
  6. mindetail 3
  7. scale .6
  8. objscale 2
  9. smooth ON
  10. taper ON
  11. rfactor .8
  12. etrop .002
  13.  
  14. #define j 6 as "Age,Young,Old  ",4,7
  15. #define w 19 as "Trunk Width,Skinny,Fat   ",1,30
  16. #define h 1 as "Growth,Perfect,Normal,Gnarled"
  17. #define d 0 as "Detail,Low,Medium,High"
  18. #define e ((d+1)*3)
  19. #define s 15
  20. #define p (j-4)
  21. #define t (2+(h*15))
  22. #define b (10+(h*15))
  23.  
  24. iterations   j
  25. axiom    '(6)T
  26.  
  27. rules
  28.  
  29. T : p=0 >> #(e)!(w)!(w)F-.99(t)!(w*.95)F^.99(t)!(w*.9)F+.99(t)!(w*.85)F&.99(t)FB/.50(120)B/.50(120)B/.50(120)B
  30. T : p=1 >> #(e)!(w)!(w)F-.99(t)!(w*.95)F^.99(t)!(w*.9)F+.99(t)!(w*.85)F&.99(t)F!(w*.8)-.99(t)!(w*.75)F^.99(t)!(w*.7)F+.99(t)!(w*.65)F&.99(t)!(w*.6)F&.99(t)B/.50(120)B/.50(120)B/.50(120)B
  31. T : p=2 >> #(e)!(w)!(w)F-.99(t)!(w*.95)F^.99(t)!(w*.9)F+.99(t)!(w*.85)F&.99(t)F!(w*.8)-.99(t)!(w*.75)F^.99(t)!(w*.7)F+.99(t)!(w*.65)F&.99(t)!(w*.6)F-.99(t)!(w*.55)F^.99(t)!(w*.5)F+.99(t)!(w*.45)F&.99(t)B/.50(120)B/.50(120)B/.50(120)B
  32. T : p=3 >> #(e)!(w)!(w)F-.99(t)!(w*.95)F^.99(t)!(w*.9)F+.99(t)!(w*.85)F&.99(t)F!(w*.8)-.99(t)!(w*.75)F^.99(t)!(w*.7)F+.99(t)!(w*.65)F&.99(t)!(w*.6)F-.99(t)!(w*.55)F^.99(t)!(w*.5)F+.99(t)!(w*.45)F&.99(t)B/.50(120)B/.50(120)B/.50(120)B
  33. B >> [!CL-.99(b)CL-.99(b)CL^(30)B&(30)B]
  34. C >> F
  35. //L >> ['(1)^(45){:^(30)f(s):&(60)f(s):&(120)f(s):}]['(1)&(45){:^(30)f(s):&(60)f(s):&(120)f(s):}]
  36. L >> [-(15)^(45)~(plants\leaf15gt.3ds)][&(45)-(15)~(plants\leaf15gt.3ds)]
  37.