home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / FLOWER1.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  1.3 KB  |  44 lines
  1. name 'Lychnis Coronaria (Rose Campion)'
  2. objname 'Campion01'
  3. scale  0.0020
  4. radius 70
  5. length 100
  6. etrop .0004
  7.  
  8. #define  j 5 as "Size,Small,Large",1,7
  9. iterations  (j*5)
  10. #define  g (j*3+50)
  11. #define  x 100
  12. #define  d 0 as "Color of Flowers,Red,Violet,White,Yellow"
  13. #define  c (d+7)
  14. #define  e 0 as "Detail,Low,High"
  15. #define  h (e*10+30)   // Makes up for lack of branch bend on low detail
  16.  
  17. axiom  RA(7)
  18.  
  19. rules
  20.  
  21. R >> !(j*8+30)&(e*20)
  22. A(t) : t=7 >> '(1)FI(20)[&.10(60)L(0)]/.10(90)[!&.05(h)A(0)]/.10(90)[&.10(60)L(0)]/(90)[!&(h)A(4)]FI(10)FK(0)
  23. A(t) : t<7 >> A(t+1)
  24. I(t) : t>0&e=1 >> /(1.5)^(2.6)FFFI(t-2)
  25. I(t) : t>0&e=0 >> FF(50)I(t-1)
  26. L(t) >> '(5)[{+:f(x,0)-:f(x,0):f(x,0)-:&(5)f(x,0)+|+:^(10)f(x,0)-:&(5)f(x,0):f(x,0)-:f(x,0)}]'(1)
  27. K(t) >> [^(5)'(0)F(5)W/(72)W/(72)W/(72)W/(72)W]
  28. M >> [^'(11)F(x)]['(c){&&&&//f(x,1)-------:f(x,1)+(22):f(x,1)|-(22):f(x,1)+(22):f(x,1)}]'(1)
  29.  
  30. W >> ['(c)&&&&P]'(1)
  31.  
  32. f(y,n) : y<400&n=0 >> f(y+30,0)
  33. f(y,n) : y<400&n=1 >> f(y+45,1)
  34. f(y,n) : y>399&n>0&n<5 >> f(y,n+1)
  35. f(y,n) : n=5 >> f(35,n+1)
  36.  
  37. // Flat flower
  38.  
  39. Q >> {-(30):f(x,1)f(x,1)f(x,1):+(90)&(5)f(x,1):+(90)^(10)f(x,1):-(90)&(5)f(x,1):+(90)^(10)f(x,1):}
  40.  
  41. // Bumpy flower
  42.  
  43. P >> {-(30):f(x,1)&(2)f(x,1)&(2)f(x,1)&(2):+(90)^(6)f(x,1):+(90)f(x,1):-(90)f(x,1):+(90)f(x,1):}
  44.