home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / FLOWER4.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  714 b   |  24 lines
  1. name 'Rose' 
  2. objname 'Rose01'
  3. radius 2.1
  4. scale 0.1
  5. etrop .001
  6.  
  7. #define j 13 as "Age,Young,Old  ",1,25
  8. #define c 1 as "Blossoms,Red,Yellow,White"
  9.  
  10. iterations (j)  
  11. axiom '(67)!(2)F.1(40)A(8,30)
  12. #define a 137.3
  13.  
  14. rules
  15.  
  16. A(x,y) : x>0 >> ^(5)&.99(10)!(2)F.1(y)/.1(a)[G]A(x-1,y*.95)
  17. A(x,y) : x=0 >> /.1(a)[P]F.99(8)/.1(a)[P]F.99(5)/.1(a)[P]
  18. G >> &.20(82)!(.1)F(20)[-.05(122)/.99(9)L][+.05(122)\.99(5)L]&.99(9)F(10)[-.05(100)/.99(9)L][+.05(100)\.99(9)L]&.99(6)F(10)[-(80)L][+(80)L]&.99(8)F(10)[-.1(50)L][+.1(50)L]
  19. P >> &.05(20)F.4(50)&.99(4)[/(a)G]F.4(90),(1.15)B
  20. B : c=0 >> ~(plants\rose.3ds)
  21. B : c=1 >> ~(plants\roseyel.3ds) 
  22. B : c=2 >> ~(plants\rosewht.3ds) 
  23. L >> ,(.8)~(plants\leaf0gt.3ds),(1)
  24.