home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / TREE4.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  1.3 KB  |  45 lines
  1. name 'Forest of Opacity Mapped Trees'
  2. objname 'Forest01'
  3. radius  1
  4. detail 3
  5. scale 30
  6. length 10
  7. etrop 0
  8.  
  9. #define k 2 as "Size of Forest,Small,Large",2,4
  10. #define j (k+1)
  11. #define r 1 as "Forest Density,Thick,Thin ",0,5
  12. #define p 1 as "Shape,Line,Solid"
  13. #define t 1 as "Forest Type,Deciduous,Mix,Evergreen" 
  14. #define s ((r*10)+4)
  15.  
  16. iterations j
  17. angle  90
  18. axiom    &(90)-L
  19.  
  20. rules
  21.  
  22. //L : p=0 >> LG+RGR+GL-LGLL-GRGR+
  23. //R : p=0 >> -LLG+RRGR+RG-LGL-R
  24. L : p=0 >> L[O]f.6(s)[Q]f.6(s)[S]f.6(s)[Q]f.6(s)[S]f.6(s)[O]f.6(s)L
  25.  
  26. L : p=1 >> GRRGRR-.5RGRR+.5RGR
  27. R : p=1 >> -.5RGL+.5RGL
  28. G >> [O[-Q++S]]
  29.  
  30.  
  31. Q : t=0 >> f(s)[,.2(1.1)-.99(360)f.99(s*2)^(94)&.99(8)~(plants\maple.3ds),(1)]
  32. S : t=0 >> f(s)[,.2(1.1)-.99(360)f.99(s*2)^(94)&.99(8)~(plants\birch.3ds),(1)]
  33. O : t=0 >> f(s)[,.2(1.1)-.99(360)f.99(s*2)^(94)&.99(8)~(plants\cherry.3ds),(1)]
  34.  
  35. Q : t=1 >> f(s)[,.2(1.1)-.99(360)f.99(s*2)^(94)&.99(8)~(plants\pine.3ds),(1)]
  36. S : t=1 >> f(s)[,.2(1.1)-.99(360)f.99(s*2)^(94)&.99(8)~(plants\birch.3ds),(1)]
  37. O : t=1 >> f(s)[,.2(1.1)-.99(360)f.99(s*2)^(94)&.99(8)~(plants\redwood.3ds),(1)]
  38.  
  39. Q : t=2 >> f(s)[,.2(1.1)-.99(360)f.99(s*2)^(94)&.99(8)~(plants\pine.3ds),(1)]
  40. S : t=2 >> f(s)[,.2(1.1)-.99(360)f.99(s*2)^(94)&.99(8)~(plants\redwood.3ds),(1)]
  41. O : t=2 >> f(s)[,.2(1.1)-.99(360)f.99(s*2)^(94)&.99(8)~(plants\pine.3ds),(1)]
  42.  
  43.  
  44.  
  45.