home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m401 / 5.ddi / PLANTS.EXE / STRUCT4.LS < prev    next >
Encoding:
Text File  |  1992-10-30  |  579 b   |  29 lines
  1. name 'Chain Link Fence'
  2. objname 'Fence01'
  3. scale .5
  4. axiom Y(1)A
  5.  
  6. #define t 0
  7. #define u 7 as "Segments, Few,Many",2,30
  8. #define w (u*15)
  9. #define h 125 as "Height,Short,Tall ",50,200
  10.  
  11. mindetail 2
  12. iterations w
  13. angle 90
  14. detail  3
  15. length 100
  16. radius .4
  17. etrop .00 
  18.  
  19. rules
  20. Y(q) >> Y(q+1)
  21. R : d=0&t=0 >> ?(-)#(2)
  22. A : t=0 >> -(90)R[B(w)][f(180)P(0)K(10)]
  23. B(i) : i>0 >> ['(58)-(45)F(h*1.4142)+(90)F(h*1.4142)]f(10)B(i-1)
  24. P(i) : i!0 >> P(i-1)f(10)
  25. P(i) : i=0 >> P(24)['(57)!(2.3)?(*)#(5)-(90)F(h)]
  26. K(i) : q!w >> K(i+10)
  27. K(i) : q=w >> '(57)-(180)!(2.3)?(*)#(5)F(i)
  28.  
  29.