home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / TREE3.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  1.9 KB  |  51 lines
  1. name 'Evergreens'
  2. objname 'Evergrn01'
  3. radius 4
  4. length 50
  5. detail 10
  6. mindetail 3
  7. scale 1
  8. objscale .7
  9. smooth ON
  10. taper ON
  11. rfactor .8
  12. dfactor .5
  13. etrop .003
  14.  
  15. #define j 8 as "Age,Young,Old  ",6,9
  16. #define l 8 // Starting Branch length,Short,Long  1 10
  17. #define w 3 as "Trunk Width,Skinny,Fat   ",1,5
  18. #define r .6 // branch reduction rate 1
  19. #define a .95 // branch reduction rate 2
  20. #define s 22 // Branch spacing,Close,Far  ,5,40
  21. #define n 9 as "Branch Slope,Straight,Drooping",0,10
  22. #define c 5 // branch complexity
  23. #define g 220 //branch space angle
  24. #define e 65 // branch angle
  25. #define p 1 as "Branch Fall-Off, Low,High",0,5
  26. #define d 0 as "Detail,Low,High"
  27. #define u 1 as "Type,Pine,Redwood"
  28.  
  29. iterations j
  30. axiom     Y(1)T
  31.  
  32. rules
  33.  
  34. Y(q) >> Y(q+1)
  35. T >> '(11+u)!(w)!(w)!F.3(s*(p+1))N(l)M
  36. N(b) >> -(e)B(b,c)+(e)/.5(g)C.99(s/4)-(e)B(b,c)+(e)/.7(g)C.99(s/4)-(e)B(b,c)+(e)/.7(g)C.99(s/4)-(e)B(b,c)+(e)!C.3(s)/.99(100)N(b*a)                                  
  37. C >> D
  38. D >> G
  39. G >> F
  40. B(b,t) : t>0&j!q&d=1 >> [!L(t)P(b)-.99(n)!L(t)[&.5(50)B(b*r,t-1)]P(b)-.99(n)!L(t)P(b)-.99(n)&.5(50)B(b*r,t-1)^.5(100)B(b*r,t-1)]
  41. B(b,t) : t>0&j!q&d=0 >> [!L(t)-.99(n*2)[P(b*3)L(t)]f(b)L(t)[&.5(50)!B(b*r,t-1)]f(b)L(t)f(b)-.99(n)&.5(50)!B(b*r,t-1)^.5(100)B(b*r,t-1)]  
  42. B(b,t) : X
  43. L(t) : u=0&t<5 >> [,((t/90)+.2)-(10)+.99(20)/(45)\.99(90)~(plants\leaf11gt.3ds),(1)]
  44. L(t) : u=1&t<5 >> [,((t/90)+.2)-(10)+.99(20)/(45)\.99(90)~(plants\leaf10gt.3ds),(1)]  
  45. L(t) : t=5&q!j >> X
  46. L(t) : t=5&q=j&u=0 >> [,((t/90)+.2)-(10)+.99(20)/(45)\.99(90)~(plants\leaf11gt.3ds),(1)]
  47. L(t) : t=5&q=j&u=1 >> [,((t/90)+.2)-(10)+.99(20)/(45)\.99(90)~(plants\leaf10gt.3ds),(1)] 
  48. M : u=0 >> !F(s)f(0-s)/.99(180)L(4)f(s/8)L(4)f(s/8)L(4)f(s/8)L(4)f(s/8)L(4)f(s/8)L(4)f(s/8)L(4)f(s/8)L(4)f(s/8)L(4)
  49. M : u=1 >> !F(s)f(0-s)/.99(180)&(90)L(4)^(90)f.2(s/5)&(90)L(4)^(90)f.2(s/5)&(90)L(4)^(90)f.2(s/5)&(90)L(4)^(90)f.2(s/5)&(90)L(4)^(90)f.2(s/5)&(90)L(4)
  50. P(b) >> F(b)
  51.