home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / SHRUB3.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  1.5 KB  |  56 lines
  1. name 'Fictional Bushes'
  2. objname 'Bush01'
  3. angle       22.5
  4. detail       6
  5. dfactor     .9
  6. scale       .02
  7. radius      20
  8. length      100        
  9. etrop .002
  10.  
  11. #define k 6 as "Size,Small,Large",4,8
  12. #define t 2 as "Type,Ordered,Tight,Wild"
  13. #define e 1 as "Leaves,None,Flat,Textured"
  14. #define d 0 as "Detail,Low,Medium,High"
  15. #define j (k) 
  16. #define l 100
  17. #define w ((k-3)*4)
  18. #define s (20+((k/2)*10))
  19.  
  20.  
  21. iterations j
  22. axiom Y(1)A
  23.  
  24. rules
  25. Y(q) >> Y(q+1)
  26. A : t=0 >> #((d*3)+3)!(w)'(25)B
  27. A : t=1 >> #((d*3)+3)!(w)'(25)C
  28. A : t=2 >> #((d*3)+3)!(w)'(25)D
  29.  
  30. // ordered
  31. B : q!j >> [&F(l)L!B]/////[&F(l)L!B]///////[&F(l)L!B]
  32. F(a) : q!j&t=0 >> S///F(a)//L
  33. F(a) : q=j&t=0 >> F.3(a)
  34. S : q!J >> F(l)L
  35. L : e=0 >> L
  36. L : e=1 >> ['(1)^^{-:f(s)+:f(s)+:f(s)-|-:f(s)+:f(s)+:f(s)}'(25)]
  37. L : e=2 >> [^^~(plants\leaf6gt.3ds)]
  38.  
  39. // tight
  40. C : q!8&q!7 >> /.99(40)X(l)[!+.5(33)/E(1)C][!&.5(33)/E(1)C]X(l)[!-.5(33)/E(1)C][!^.5(33)/E(1)C]+.5(33)!/E(1)C
  41. X(a) : q!j >> X(a*1.5)
  42. X(a) >> F(a)
  43. E(b) : q!j >> E(b+1)
  44. E(b) : b<3&e=0 >> E(b)
  45. E(b) : b<3&e=1 >> '(1)[^^-(20)+.99(40){-:f(s)+:f(s)+:f(s)-|-:f(s)+:f(s)+:f(s)}]'(25)
  46. E(b) : b<3&e=2 >> [^^+.99(360)~(plants\leaf4gt.3ds)]
  47.  
  48. // wild
  49. D >> F(l)
  50. F(a) : t=2&q!j&q!7 >> F(a)F(a)G(1)-[!/.99(360)-F(a)+G(1)F(a)+F(a)G(1)]+[!/.99(360)+F(a)-G(1)F(a)-F(a)G(1)]
  51. F(a) : t=2 >> F(a)
  52. G(b) : q!j >> G(b+1)
  53. G(b) : b<3&e=0 >> G(b)
  54. G(b) : b<3&e=1 >> '(1)[^^{-:f(s)+:f(s)+:f(s)-|-:f(s)+:f(s)+:f(s)}&&/(180)^^{-:f(s)+:f(s)+:f(s)-|-:f(s)+:f(s)+:f(s)}]'(25)
  55. G(b) : b<3&e=2 >> [^^~(plants\leaf7gt.3ds)&&/(180)^^~(plants\leaf7gt.3ds)]
  56.