home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / SHRUB5.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  803 b   |  32 lines
  1. name 'Rhododendron'
  2. objname 'Rhode01'
  3. radius 3
  4. detail  3
  5. mindetail 3
  6. scale .3
  7. smooth ON
  8. etrop .002
  9.  
  10. #define j 23 as "Size,Small,Large",10,25
  11. #define z (j-(j/5))
  12. #define s 31 as "Shape,Straight,Crooked ",0,40
  13. #define e 0 as "Leaves,Flat,Textured"
  14. #define b 1 as "Blossoms,Yes,No"
  15. iterations   j
  16. axiom   '(17)Y(1)A(60,59)A(60,59)
  17.  
  18.  
  19. rules
  20.  
  21. Y(q) >> Y(q+1)
  22. A(x,y) : x=60|x<1 >> [/.99(180)^.90(50)!A(y,y-15)][/.99(180)&.90(40)!A(y,y-15)]
  23. A(x,y) : x<60&x>0 >> S(10)E(x)R/.90(70)&(s)^.99(2*s)A(x-10,y)
  24. E(x) : x<20 >> ['(1)/(72)&(65)L^(65)/(72)&(65)L^(65)/(72)&(65)L^(65)/(72)&(65)L^(65)/(72)&(65)L^(65)'(17)]
  25. L : e=1 >> ~(plants\leaf9gt.3ds)
  26. L : e=0 >> {-:f(8)+:f(8)+:f(8)-|-:f(8)+:f(8)+:f(8)}
  27. S(l) >> J(l)
  28. J(l) >> F(l)
  29. R : q>z&b=0 >> [f(3),(.7)~(plants\rosewht.3ds),(1)]
  30. R >> X
  31.  
  32.