home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / SHRUB2.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  752 b   |  37 lines
  1. name 'Sword Fern'
  2. objname 'Fern01'
  3. radius 5
  4. length 20
  5. detail 3
  6. mindetail 3
  7. scale .06
  8. smooth ON
  9. taper ON
  10. rfactor .5
  11. pen type -
  12. etrop .002
  13.  
  14. #define e 18 as "Number of Fronds, Few,Many",4,30
  15. #define l 26 as "Frond Length,Short,Long ",10,30
  16. #define t 37 as "Fern Orientation,  Perky,Relaxed",20,100
  17. #define d 0 as "Frond Geometry,Real,Mapped"
  18. #define k (e+2)
  19. #define s (l*10)
  20. #define j (k+l)
  21. #define r (5*(l/30))
  22.  
  23. iterations   j
  24. axiom     '(68)Y(1)B
  25.  
  26. rules
  27.  
  28. Y(q) >> Y(q+1)
  29. B >> !(r)!(r)A
  30. A : q<k >> /.50(1440/(k))[&(90)f.99((l*k)*.5)^(90)&.70(t)R(s)]A
  31. A >> X
  32.  
  33. R(n) : q>k&d=0 >> [!(8)-.1(100)!(.5)/.99(10)F(n)][!(8)+.1(100)!(.5)/.99(10)F(n)]&.99(t/10)FR(n-(s/l)+2)
  34. R(n) : q>k&d=1 >> ~(plants\leaf13gt.3ds)
  35. R(n) >> R(n) 
  36.  
  37.