home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / dos / fraktale / fracxtr6.exe / L / PLANTS.L < prev    next >
Text File  |  1991-08-30  |  2KB  |  132 lines
  1.  
  2. Bush { ; Adrian Mariano
  3.   Angle 16
  4.   Axiom ++++F
  5.   F=FF-[-F+F+F]+[+F-F-F]
  6.   }
  7.  
  8. Leaf1 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  9.    ; Compound leaf with alternating branches, Figure 5.12b p.130
  10.   angle 8
  11.   axiom x
  12.   a=n
  13.   n=o
  14.   o=p
  15.   p=x
  16.   b=e
  17.   e=h
  18.   h=j
  19.   j=y
  20.   x=F[+A(4)]Fy
  21.   y=F[-B(4)]Fx
  22.   F=@1.18F@i1.18
  23.   }
  24.  
  25. Leaf2 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  26.    ; Compound leaf with alternating branches, Figure 5.12a p.130
  27.   angle 8
  28.   axiom a
  29.   a=f[+x]fb
  30.   b=f[-y]fa
  31.   x=a
  32.   y=b
  33.   f=@1.36f@i1.36
  34.   }
  35.  
  36. MyTree { ; Adrian Mariano
  37.   Angle 16
  38.   Axiom ++++F
  39.   F=FF-[XY]+[XY]
  40.   X=+FY
  41.   Y=-FX
  42.   }
  43.  
  44. Plant01 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  45.     ; Plant-like structure, figure 1.24a p.25
  46.     ; also p.285a The Science of Fractal Images
  47.   angle 14
  48.   axiom f
  49.   f=F[+F]F[-F]F
  50.   }
  51.  
  52. Plant02 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  53.     ; Plant-like structure, figure 1.24b p.25
  54.   angle 18
  55.   axiom f
  56.   f=F[+F]F[-F][F]
  57.   }
  58.  
  59. Plant03 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  60.     ; Plant-like structure, figure 1.24c p.25
  61.   angle 16
  62.   axiom f
  63.   f=FF-[-F+F+F]+[+F-F-F]
  64.   }
  65.  
  66. Plant04 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  67.     ; Plant-like structure, figure 1.24d p.25
  68.   angle 18
  69.   axiom x
  70.   X=F[+X]F[-X]+X
  71.   F=FF
  72.   }
  73.  
  74. Plant05 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  75.     ; Plant-like structure, figure 1.24e p.25
  76.   angle 14
  77.   axiom x
  78.   X=f[+X][-X]FX
  79.   F=FF
  80.   }
  81.  
  82. Plant06 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  83.     ; Plant-like structure, figure 1.24f p.25
  84.   angle 16
  85.   axiom x
  86.   X=F-[[X]+X]+F[+FX]-X
  87.   F=FF
  88.   }
  89.  
  90. Plant07 { ; Ken Philip, from The Science of Fractal Images p.285b
  91.   axiom Z
  92.   z=zFX[+Z][-Z]
  93.   x=x[-FFF][+FFF]FX
  94.   angle 14
  95.   }
  96.  
  97. Plant08 { ; Ken Philip, from The Science of Fractal Images, p.286
  98.   axiom SLFFF
  99.   s=[+++Z][---Z]TS
  100.   z=+H[-Z]L
  101.   h=-Z[+H]L
  102.   t=TL
  103.   l=[-FFF][+FFF]F
  104.   angle 20
  105.   }
  106.  
  107. Plant09 { ; Adrian Mariano
  108.    axiom y
  109.    x=X[-FFF][+FFF]FX
  110.    y=YFX[+Y][-Y]
  111.    angle 14
  112.    }
  113.  
  114. Plant10 { ; Adrian Mariano
  115.    axiom f
  116.    f=f[+ff][-ff]f[+ff][-ff]f
  117.    angle 10
  118.    }
  119.  
  120. Plant11 { ; Adrian Mariano
  121.    axiom f
  122.    f=F[+F[+F][-F]F][-F[+F][-F]F]F[+F][-F]F
  123.    angle 12
  124.    }
  125.  
  126. Tree1 { ; Adrian Mariano
  127. ; from The Fractal Geometry of Nature by Mandelbrot
  128.   angle=12;
  129.   axiom +++FX
  130.   X=@.6[-FX]+FX
  131.   }
  132.