home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / FLOWER5.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  1.3 KB  |  47 lines
  1. name 'Sunflower' 
  2. objname 'Sunflow01'
  3. radius 2
  4. detail 3
  5. mindetail 3
  6. rfactor .9
  7. scale .3
  8. objscale .3
  9. length 5
  10. etrop .002
  11.  
  12. axiom T'(0)!(2)R(0)
  13.  
  14. #define j 260 as "Flower Size,Small,Large",100,500
  15. #define l 7 as "Stalk Height, Short,Tall ",5,10
  16. #define v 0 as "Detail,Low,High"
  17. #define c 5 // Divergence 0 9  0 9
  18. #define w (l/5)
  19. #define a (c/10+137)
  20. #define t (j*.55)
  21. #define s (j*.75)
  22. #define d (j*.9)
  23.  
  24. iterations j
  25.  
  26. rules
  27.  
  28. T >> !(w)!(w)'(1)#(6)B(l)F(l)F(l)'(1)F(l)^(30)F(2)^(30)F(2)^(30)F(2)[&(100)G(30)^(100)]/(90)[&(100)G(30)^(100)]/(90)[&(100)G(30)^(100)]/(90)[&(100)G(30)^(100)]/(90)f(-2)&(30)f(-2)&(30)f(-2)&(30)#(3)
  29. B(h) : h>0 >> /.2(90)L(1)/.1(180)L(1)F(l)F(l)B(h-1)
  30.  
  31. R(n) : v=1 >> A(n)
  32. R(n) : v=0 >> ,((j/400)+.75)~(plants\flow3yt.3ds),(1)C(n)
  33. C(n) : n<s >> +(a)C(n+1)
  34. C(n) >> A(n)
  35.                          
  36. A(n) : n<s >> +(a)[f(n^.5)^(90)f(((j-n)^.5)*.5)&(45*(j-n)/j))S(n)]A(n+1)
  37. A(n) >> +.1(a*1.05)[f(n^.45)^(90)f(((j-n)^.5)*.5)&(45*((j-n)/j))S(n)]A(n+1)
  38. S(b) : b<t >> ~(plants\seed.3ds)
  39. S(b) : b<s >> ~(plants\pod.3ds)
  40. S(b) : b<d >> &(45)/(20)\.99(40),(.3+((b-s)*.002))~(plants\petal.3ds),(.2)
  41. S(b) >> &(45)/(20)\.99(40),(.3+((b-s)*.002))~(plants\petalg.3ds),(.2)
  42.  
  43. L(b) >> [?(V)G(b)?(*)]
  44. G(b) : b<20 >> !&(5)F(l/5)%(90+(b*9))G(b+1)
  45. G(b) >> ~(plants\leaf5g.3ds)
  46.  
  47.