home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / dos / fraktale / fracxtr6.exe / L / CURVES.L next >
Text File  |  1991-08-30  |  4KB  |  221 lines
  1.  
  2. Cesaro { ; Adrian Mariano
  3. ; from The Fractal Geometry of Nature by Mandelbrot
  4.   Angle 34
  5.   Axiom FX
  6.   F=
  7.   X=----F!X!++++++++F!X!----
  8.   }
  9.  
  10. CesaroDouble { ; Adrian Mariano
  11. ; from The Fractal Geometry of Nature by Mandelbrot
  12.   Angle 4
  13.   axiom D\90D\90D\90D\90
  14.   D=\42!D!/84!D!\42
  15.   }
  16.  
  17. Curve1 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  18.     ; curve from figure 1.9a p.10
  19.   angle 4
  20.   axiom F-F-F-F-
  21.   f=FF-F-F-F-F-F+F
  22.   }
  23.  
  24. Curve2 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  25.   angle 4
  26.   axiom F-F-F-F-
  27.   f=FF-F+F-F-FF
  28.   }
  29.  
  30. Curve3 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  31.     ; curve from figure 1.9e p.10
  32.   axiom F-F-F-F-
  33.   angle 4
  34.   F=F-FF--F-F
  35.   }
  36.  
  37. Curve4 { ; Adrian Mariano
  38.    axiom yf
  39.    x=YF+XF+Y
  40.    y=XF-YF-X
  41.    angle 6
  42.    }
  43.  
  44. Dragon { ; Adrian Mariano
  45. ; from The Fractal Geometry of Nature by Mandelbrot
  46.   Angle 8
  47.   Axiom FX
  48.   F=
  49.   y=+FX--FY+
  50.   x=-FX++FY-
  51.   }
  52.  
  53. DragonCurve { ; Adrian Mariano
  54.   Angle 4
  55.   Axiom X
  56.   X=X-YF-
  57.   Y=+FX+Y
  58.   }
  59.  
  60. Fass1 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  61.    ; FASS curve (3x3 tiles form macrotile), Figure 1.16a p.17
  62.   axiom -l
  63.   angle 4
  64.   L=LF+RFR+FL-F-LFLFL-FRFR+
  65.   R=-LFLF+RFRFR+F+RF-LFL-FR
  66.   }
  67.  
  68. Fass2 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  69.    ; FASS curve (4x4 tiles form macrotile), Figure 1.16b p.17
  70.   angle 4
  71.   axiom -l
  72.   L=LFLF+RFR+FLFL-FRF-LFL-FR+F+RF-LFL-FRFRFR+
  73.   R=-LFLFLF+RFR+FL-F-LF+RFR+FLF+RFRF-LFL-FRFR
  74.   }
  75.  
  76. FlowSnake { ; Adrian Mariano
  77. ; from The Fractal Geometry of Nature by Mandelbrot
  78.   angle=6;
  79.   axiom FL
  80.   L=FL-FR--FR+FL++FLFL+FR-",
  81.   R=+FL-FRFR--FR-FL++FL+FR",
  82.   F=
  83.   }
  84.  
  85. Hilbert { ; Ken Philip, from The Science of Fractal Images
  86.   axiom x
  87.   x=-YF+XFX+FY-
  88.   y=+XF-YFY-FX+
  89.   angle 4
  90.   }
  91.  
  92. Koch1 { ; Adrian Mariano
  93. ; from The Fractal Geometry of Nature by Mandelbrot
  94.   Angle 6
  95.   Axiom F--F--F
  96.   F=F+F--F+F
  97.   }
  98.  
  99. Koch2 { ; Adrian Mariano
  100. ; from The Fractal Geometry of Nature by Mandelbrot
  101.   Angle 12
  102.   Axiom F---F---F---F
  103.   F=-F+++F---F+
  104.   }
  105.  
  106. Koch3 { ; Adrian Mariano
  107. ; from The Fractal Geometry of Nature by Mandelbrot
  108.   Angle 4
  109.   Axiom F-F-F-F
  110.   F=F-F+F+FF-F-F+F
  111.   }
  112.  
  113. Koch4 { ; Adrian Mariano
  114. ; from The Fractal Geometry of Nature by Mandelbrot
  115.   angle 12
  116.   axiom f++++f++++f
  117.   f=+f--f++f-
  118.   }
  119.  
  120. Koch5 {
  121.   axiom f+F+F+F
  122.   f=F+F-F-FFF+F+F-F
  123.   angle 4
  124.   }
  125.  
  126. Koch6 { ; Adrian Mariano
  127.    axiom f+f+f+f
  128.    f=f-ff+ff+f+f-f-ff+f+f-f-ff-ff+f
  129.    angle 4
  130.     }
  131.  
  132. KochCurve { ; Adrian Mariano
  133.   Angle 6
  134.   Axiom F
  135.   F=F+F--F+F
  136.   }
  137.  
  138. Peano1 { ; Adrian Mariano
  139. ; from The Fractal Geometry of Nature by Mandelbrot
  140.   Angle 4
  141.   Axiom F-F-F-F
  142.   F=F-F+F+F+F-F-F-F+F
  143.   }
  144.  
  145. Peano2 { ; Adrian Mariano
  146. ; from The Fractal Geometry of Nature by Mandelbrot
  147.   Angle 8
  148.   Axiom FXY++F++FXY++F
  149.   X=XY@Q2-F@IQ2-FXY++F++FXY
  150.   Y=-@Q2F-@IQ2FXY
  151.   }
  152.  
  153. Peano3 {
  154.   axiom x
  155.   x=XFYFX+F+YFXFY-F-XFYFX
  156.   y=YFXFY-F-XFYFX+F+YFXFY
  157.   angle 4
  158.   }
  159.  
  160. QuadGosper { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  161.         ; Quadratic Gosper curve, Figure 1.11b p.12
  162.   angle 4
  163.   axiom -Fr
  164.   l=FlFl-Fr-Fr+Fl+Fl-Fr-FrFl+Fr+FlFlFr-Fl+Fr+FlFl+Fr-FlFr-Fr-Fl+Fl+FrFr-
  165.   r=+FlFl-Fr-Fr+Fl+FlFr+Fl-FrFr-Fl-Fr+FlFrFr-Fl-FrFl+Fl+Fr-Fr-Fl+Fl+FrFr
  166.   f=
  167.   }
  168.  
  169. QuadKoch { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  170.       ; Quadratic Koch island, Figure 1.7a p.9
  171.   angle 4
  172.   AXIOM F-F-F-F-
  173.   F=F+FF-FF-F-F+F+FF-F-F+F+FF+FF-F
  174.   }
  175.  
  176. Quartet { ; Adrian Mariano
  177. ; from The Fractal Geometry of Nature by Mandelbrot
  178.   angle 4
  179.   axiom fb
  180.   A=FBFA+HFA+FB-FA
  181.   B=FB+FA-FB-JFBFA
  182.   F=
  183.   H=-
  184.   J=+
  185.   }
  186.  
  187. SnowFlake1 { ; Adrian Mariano
  188. ; from The Fractal Geometry of Nature by Mandelbrot
  189.   Angle 12
  190.   Axiom FR
  191.   R=++!FRFU++FU++FU!---@Q3FU|-@IQ3!FRFU!
  192.   U=!FRFU!|+@Q3FR@IQ3+++!FR--FR--FRFU!--
  193.   F=
  194.   }
  195.  
  196. SnowFlake2 { ; Adrian Mariano
  197. ; from The Fractal Geometry of Nature by Mandelbrot
  198.   angle 12
  199.   axiom F
  200.   F=++!F!F--F--F@IQ3|+F!F--
  201.   F=F--F!+++@Q3F@QI3|+F!F@Q3|+F!F
  202.   }
  203.  
  204. SnowFlake3 { ; Adrian Mariano
  205. ; from The Fractal Geometry of Nature by Mandelbrot
  206.   angle 12
  207.   axiom fx
  208.   x=++f!x!fy--fx--fy|+@iq3fyf!x!++f!y!++f!y!fx@q3+++f!y!fx
  209.   y=fyf!x!+++@iq3fyf!x!++f!x!++f!y!fx@q3|+fx--fy--fxf!y!++
  210.   f=
  211.   }
  212.  
  213. SnowFlakeColor { ; Adrian Mariano
  214. ; from The Fractal Geometry of Nature by Mandelbrot
  215.   angle 12
  216.   axiom F
  217.   F=--!F<1!F<1++F<1++F<1@IQ3|-F<1!F<1++
  218.   F=F<1++F<1!---@Q3F<1@QI3|-F<1!F<1@Q3|-F<1!F<1
  219.   <=
  220.   }
  221.