home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / SHRUB4.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  861 b   |  24 lines
  1. name 'Reed and Grass'
  2. objname 'Reed01'
  3. scale .1
  4. radius 4
  5. axiom        Rc(0)
  6. #define       a  .7      // node length decrease rate: smaller = smoother
  7. #define       b  1.4    // frond bend increase/decrease rate: 1 = straight
  8. #define       v  0   as "Type,Grass,Reed"
  9. #define       d  14  as "Fronds, Few,Many",1,20
  10. #define       g  60 as "Plant Orientation,    Flat,Vertical",10,90
  11. #define       c  8 as "Frond Bend,  Up,Down",-20,20
  12. #define       e  0       // growth delay: d-1=all same length, 0 = max variation
  13. #define       h  2 as "Frond Twist,  Straight,Serpentine",0,10
  14. #define       i  (h+2*10)
  15. #define       k  (i/7)
  16. iterations  (d+6)
  17.  
  18. rules
  19. R : v=0 >> ?(-)'(66)
  20. R : v=1 >> ?(V)'(77)
  21. c(t) : t<d >> c(t+1)ssssssss
  22. s >> [/.99(720)&(90)f.50(15)^.60(g)F.2(70)T(60,5)]
  23. T(x,y) : x>0 >> -(k/2)+.99(k)/(i/2)\.99(i)&(c)F.2(x)!T(x*a,y*b)
  24.