home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / dos / fraktale / fracxtr6.exe / L / FRACTINT.L < prev    next >
Text File  |  1995-02-23  |  11KB  |  552 lines
  1. Koch1 { ; Adrian Mariano
  2. ; from The Fractal Geometry of Nature by Mandelbrot
  3.   Angle 6
  4.   Axiom F--F--F
  5.   F=F+F--F+F
  6.   }
  7.  
  8. Koch2 { ; Adrian Mariano
  9. ; from The Fractal Geometry of Nature by Mandelbrot
  10.   Angle 12
  11.   Axiom F---F---F---F
  12.   F=-F+++F---F+
  13.   }
  14.  
  15. Koch3 { ; Adrian Mariano
  16. ; from The Fractal Geometry of Nature by Mandelbrot
  17.   Angle 4
  18.   Axiom F-F-F-F
  19.   F=F-F+F+FF-F-F+F
  20.   }
  21.  
  22. Koch6 { ; Adrian Mariano
  23.    axiom f+f+f+f
  24.    f=f-ff+ff+f+f-f-ff+f+f-f-ff-ff+f
  25.    angle 4
  26.     }
  27.  
  28. Dragon { ; Adrian Mariano
  29. ; from The Fractal Geometry of Nature by Mandelbrot
  30.   Angle 8
  31.   Axiom FX
  32.   F=
  33.   y=+FX--FY+
  34.   x=-FX++FY-
  35.   }
  36.  
  37. Peano1 { ; Adrian Mariano
  38. ; from The Fractal Geometry of Nature by Mandelbrot
  39.   Angle 4
  40.   Axiom F-F-F-F
  41.   F=F-F+F+F+F-F-F-F+F
  42.   }
  43.  
  44. Cesaro { ; Adrian Mariano
  45. ; from The Fractal Geometry of Nature by Mandelbrot
  46.   Angle 34
  47.   Axiom FX
  48.   F=
  49.   X=----F!X!++++++++F!X!----
  50.   }
  51.  
  52. DoubleCesaro { ; Adrian Mariano
  53. ; from The Fractal Geometry of Nature by Mandelbrot
  54.   Angle 4
  55.   axiom D\90D\90D\90D\90
  56.   D=\42!D!/84!D!\42
  57.   }
  58.  
  59. FlowSnake { ; Adrian Mariano
  60. ; from The Fractal Geometry of Nature by Mandelbrot
  61.   angle=6;
  62.   axiom FL
  63.   L=FL-FR--FR+FL++FLFL+FR-",
  64.   R=+FL-FRFR--FR-FL++FL+FR",
  65.   F=
  66.   }
  67.  
  68. CantorDust { ; Adrian Mariano
  69. ; from The Fractal Geometry of Nature by Mandelbrot
  70.   Angle 6
  71.   Axiom F
  72.   F=FGF
  73.   G=GGG
  74.   }
  75.  
  76. Snowflake2 { ; Adrian Mariano
  77. ; from The Fractal Geometry of Nature by Mandelbrot
  78.   angle 12
  79.   axiom F
  80.   F=++!F!F--F--F@IQ3|+F!F--
  81.   F=F--F!+++@Q3F@QI3|+F!F@Q3|+F!F
  82.   }
  83.  
  84. SnowflakeColor { ; Adrian Mariano
  85. ; from The Fractal Geometry of Nature by Mandelbrot
  86.   angle 12
  87.   axiom F
  88.   F=--!F<1!F<1++F<1++F<1@IQ3|-F<1!F<1++
  89.   F=F<1++F<1!---@Q3F<1@QI3|-F<1!F<1@Q3|-F<1!F<1
  90.   F=
  91.   }
  92.  
  93. Island1 { ; Adrian Mariano
  94. ; from The Fractal Geometry of Nature by Mandelbrot
  95.   angle 4
  96.   axiom F+F+F+F
  97.   F=FFFF-F+F+F-F[-GFF+F+FF+F]FF
  98.   G=@8G@I8
  99.   }
  100.  
  101. Island2 { ; Adrian Mariano
  102. ; from The Fractal Geometry of Nature by Mandelbrot
  103.   angle 4
  104.   axiom f+f+f+f
  105.   f=f+gf-ff-f-ff+g+ff-gf+ff+f+ff-g-fff
  106.   g=@6G@I6
  107.   }
  108.  
  109. Quartet { ; Adrian Mariano
  110. ; from The Fractal Geometry of Nature by Mandelbrot
  111.   angle 4
  112.   axiom fb
  113.   A=FBFA+HFA+FB-FA
  114.   B=FB+FA-FB-JFBFA
  115.   F=
  116.   H=-
  117.   J=+
  118.   }
  119.  
  120. SnowFlake1 { ; Adrian Mariano
  121. ; from The Fractal Geometry of Nature by Mandelbrot
  122.   Angle 12
  123.   Axiom FR
  124.   R=++!FRFU++FU++FU!---@Q3FU|-@IQ3!FRFU!
  125.   U=!FRFU!|+@Q3FR@IQ3+++!FR--FR--FRFU!--
  126.   F=
  127.   }
  128.  
  129. SnowFlake3 { ; Adrian Mariano
  130. ; from The Fractal Geometry of Nature by Mandelbrot
  131.   angle 12
  132.   axiom fx
  133.   x=++f!x!fy--fx--fy|+@iq3fyf!x!++f!y!++f!y!fx@q3+++f!y!fx
  134.   y=fyf!x!+++@iq3fyf!x!++f!x!++f!y!fx@q3|+fx--fy--fxf!y!++
  135.   f=
  136.   }
  137.  
  138. Tree1 { ; Adrian Mariano
  139. ; from The Fractal Geometry of Nature by Mandelbrot
  140.   angle=12;
  141.   axiom +++FX
  142.   X=@.6[-FX]+FX
  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. Sierpinski1 { ; Adrian Mariano
  154. ; from The Fractal Geometry of Nature by Mandelbrot
  155.   angle 3
  156.   axiom F
  157.   F=FXF
  158.   X=+FXF-FXF-FXF+
  159.   }
  160.  
  161. Koch4 { ; Adrian Mariano
  162. ; from The Fractal Geometry of Nature by Mandelbrot
  163.   angle 12
  164.   axiom f++++f++++f
  165.   f=+f--f++f-
  166.   }
  167.  
  168.  
  169. Plant07 { ; Ken Philip, from The Science of Fractal Images p.285b
  170.   axiom Z
  171.   z=zFX[+Z][-Z]
  172.   x=x[-FFF][+FFF]FX
  173.   angle 14
  174.   }
  175.  
  176. Plant08 { ; Ken Philip, from The Science of Fractal Images, p.286
  177.   axiom SLFFF
  178.   s=[+++Z][---Z]TS
  179.   z=+H[-Z]L
  180.   h=-Z[+H]L
  181.   t=TL
  182.   l=[-FFF][+FFF]F
  183.   angle 20
  184.   }
  185.  
  186. Hilbert { ; Ken Philip, from The Science of Fractal Images
  187.   axiom x
  188.   x=-YF+XFX+FY-
  189.   y=+XF-YFY-FX+
  190.   angle 4
  191.   }
  192.  
  193. Sierpinski3 { ; From Jim Hanan via Corbit
  194.   axiom F-F-F
  195.   f=F[-F]F
  196.   angle 3
  197.   }
  198.  
  199.  
  200. Peano3 {
  201.   axiom x
  202.   x=XFYFX+F+YFXFY-F-XFYFX
  203.   y=YFXFY-F-XFYFX+F+YFXFY
  204.   angle 4
  205.   }
  206.  
  207. Koch5 {
  208.   axiom f+F+F+F
  209.   f=F+F-F-FFF+F+F-F
  210.   angle 4
  211.   }
  212.  
  213. Sierpinski2 { ; from The Science of Fractal Images
  214.   axiom FXF--FF--FF
  215.   f=FF
  216.   x=--FXF++FXF++FXF--
  217.   angle 6
  218.   }
  219.  
  220. SierpinskiSquare {
  221.   axiom F+F+F+F
  222.   f=FF+F+F+F+FF
  223.   angle 4
  224.   }
  225.  
  226.  
  227. Pentagram { ; created by Adrian Mariano
  228.   angle 10
  229.   axiom fx++fx++fx++fx++fx
  230. ; f=f[++++@1.618033989f]
  231.   x=[++++@i1.618033989f@.618033989f!x!@i.618033989f]
  232.   }
  233.  
  234.  
  235. QuadKoch { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  236.        ; Quadratic Koch island, Figure 1.7a p.9
  237.   angle 4
  238.   AXIOM F-F-F-F-
  239.   F=F+FF-FF-F-F+F+FF-F-F+F+FF+FF-F
  240.   }
  241.  
  242. Fass1 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  243.     ; FASS curve (3x3 tiles form macrotile), Figure 1.16a p.17
  244.   axiom -l
  245.   angle 4
  246.   L=LF+RFR+FL-F-LFLFL-FRFR+
  247.   R=-LFLF+RFRFR+F+RF-LFL-FR
  248.   }
  249.  
  250. Fass2 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  251.     ; FASS curve (4x4 tiles form macrotile), Figure 1.16b p.17
  252.   angle 4
  253.   axiom -l
  254.   L=LFLF+RFR+FLFL-FRF-LFL-FR+F+RF-LFL-FRFRFR+
  255.   R=-LFLFLF+RFR+FL-F-LF+RFR+FLF+RFRF-LFL-FRFR
  256.   }
  257.  
  258. QuadGosper { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  259.          ; Quadratic Gosper curve, Figure 1.11b p.12
  260.   angle 4
  261.   axiom -Fr
  262.   l=FlFl-Fr-Fr+Fl+Fl-Fr-FrFl+Fr+FlFlFr-Fl+Fr+FlFl+Fr-FlFr-Fr-Fl+Fl+FrFr-
  263.   r=+FlFl-Fr-Fr+Fl+FlFr+Fl-FrFr-Fl-Fr+FlFrFr-Fl-FrFl+Fl+Fr-Fr-Fl+Fl+FrFr
  264.   f=
  265.   }
  266.  
  267. Plant01 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  268.      ; Plant-like structure, figure 1.24a p.25
  269.      ; also p.285a The Science of Fractal Images
  270.   angle 14
  271.   axiom f
  272.   f=F[+F]F[-F]F
  273.   }
  274.  
  275. Plant02 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  276.      ; Plant-like structure, figure 1.24b p.25
  277.   angle 18
  278.   axiom f
  279.   f=F[+F]F[-F][F]
  280.   }
  281.  
  282. Plant03 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  283.      ; Plant-like structure, figure 1.24c p.25
  284.   angle 16
  285.   axiom f
  286.   f=FF-[-F+F+F]+[+F-F-F]
  287.   }
  288.  
  289. Plant04 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  290.      ; Plant-like structure, figure 1.24d p.25
  291.   angle 18
  292.   axiom x
  293.   X=F[+X]F[-X]+X
  294.   F=FF
  295.   }
  296.  
  297. Plant05 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  298.      ; Plant-like structure, figure 1.24e p.25
  299.   angle 14
  300.   axiom x
  301.   X=f[+X][-X]FX
  302.   F=FF
  303.   }
  304.  
  305. Plant06 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  306.      ; Plant-like structure, figure 1.24f p.25
  307.   angle 16
  308.   axiom x
  309.   X=F-[[X]+X]+F[+FX]-X
  310.   F=FF
  311.   }
  312.  
  313. Plant09 { ; Adrian Mariano
  314.    axiom y
  315.    x=X[-FFF][+FFF]FX
  316.    y=YFX[+Y][-Y]
  317.    angle 14
  318. }
  319.  
  320. Plant10 { ; Adrian Mariano
  321.    axiom f
  322.    f=f[+ff][-ff]f[+ff][-ff]f
  323.    angle 10
  324.    }
  325.  
  326.  
  327. Plant11 { ; Adrian Mariano
  328.    axiom f
  329.    f=F[+F[+F][-F]F][-F[+F][-F]F]F[+F][-F]F
  330.    angle 12
  331.    }
  332.  
  333. Curve1 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  334.      ; curve from figure 1.9a p.10
  335.   angle 4
  336.   axiom F-F-F-F-
  337.   f=FF-F-F-F-F-F+F
  338.   }
  339.  
  340. Curve2 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  341.   angle 4
  342.   axiom F-F-F-F-
  343.   f=FF-F+F-F-FF
  344.   }
  345.  
  346. Curve3 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  347.      ; curve from figure 1.9e p.10
  348.   axiom F-F-F-F-
  349.   angle 4
  350.   F=F-FF--F-F
  351.   }
  352.  
  353. Curve4 { ; Adrian Mariano
  354.    axiom yf
  355.    x=YF+XF+Y
  356.    y=XF-YF-X
  357.    angle 6
  358.    }
  359.  
  360. Leaf1 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  361.     ; Compound leaf with alternating branches, Figure 5.12b p.130
  362.   angle 8
  363.   axiom x
  364.   a=n
  365.   n=o
  366.   o=p
  367.   p=x
  368.   b=e
  369.   e=h
  370.   h=j
  371.   j=y
  372.   x=F[+A(4)]Fy
  373.   y=F[-B(4)]Fx
  374.   F=@1.18F@i1.18
  375.   }
  376.  
  377. Leaf2 { ; Adrian Mariano, from the Algorithmic Beauty of Plants
  378.     ; Compound leaf with alternating branches, Figure 5.12a p.130
  379.   angle 8
  380.   axiom a
  381.   a=f[+x]fb
  382.   b=f[-y]fa
  383.   x=a
  384.   y=b
  385.   f=@1.36f@i1.36
  386.   }
  387.  
  388. Bush { ; Adrian Mariano
  389.   Angle 16
  390.   Axiom ++++F
  391.   F=FF-[-F+F+F]+[+F-F-F]
  392.   }
  393.  
  394. MyTree { ; Adrian Mariano
  395.   Angle 16
  396.   Axiom ++++F
  397.   F=FF-[XY]+[XY]
  398.   X=+FY
  399.   Y=-FX
  400.   }
  401.  
  402. ColorTriangGasket { ; Adrian Mariano
  403.   Angle 6
  404.   Axiom --X
  405.   X=++FXF++FXF++FXF>1
  406.   F=FF
  407.   }
  408.  
  409. SquareGasket { ; Adrian Mariano
  410.   Angle 4
  411.   Axiom X
  412.   X=+FXF+FXF+FXF+FXF
  413.   F=FF
  414.   }
  415.  
  416. DragonCurve { ; Adrian Mariano
  417.   Angle 4
  418.   Axiom X
  419.   X=X-YF-
  420.   Y=+FX+Y
  421.   }
  422.  
  423. Square { ; Adrian Mariano
  424.   Angle 4
  425.   Axiom F+F+F+F
  426.   F=FF+F+F+F+FF
  427.   }
  428.  
  429. KochCurve { ; Adrian Mariano
  430.   Angle 6
  431.   Axiom F
  432.   F=F+F--F+F
  433.   }
  434.  
  435.  
  436. Penrose1 { ; by Herb Savage
  437. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers",
  438. ; Roger Penrose's rhombuses
  439.   Angle 10
  440.   Axiom +WF--XF---YF--ZF
  441.   W=YF++ZF----XF[-YF----WF]++
  442.   X=+YF--ZF[---WF--XF]+
  443.   Y=-WF++XF[+++YF++ZF]-
  444.   Z=--YF++++WF[+ZF++++XF]--XF
  445.   F=
  446. }
  447.  
  448. ColorPenrose1 { ; by Herb Savage
  449. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers",
  450. ; Roger Penrose's rhombuses
  451. ; Uses color to show the edge matching rules to force nonperiodicy
  452.   Angle 10
  453.   Axiom +WC02F--XC04F---YC04F--ZC02F
  454.   W=YC04F++ZC02F----XC04F[-YC04F----WC02F]++
  455.   X=+YC04F--ZC02F[---WC02F--XC04F]+
  456.   Y=-WC02F++XC04F[+++YC04F++ZC02F]-
  457.   Z=--YC04F++++WC02F[+ZC02F++++XC04F]--XC04F
  458.   F=
  459.   }
  460.  
  461. Penrose2 { ; by Herb Savage
  462. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers",
  463. ; Roger Penrose's rhombuses
  464.   Angle 10
  465.   Axiom ++ZF----XF-YF----WF
  466.   W=YF++ZF----XF[-YF----WF]++
  467.   X=+YF--ZF[---WF--XF]+
  468.   Y=-WF++XF[+++YF++ZF]-
  469.   Z=--YF++++WF[+ZF++++XF]--XF
  470.   F=
  471.   }
  472.  
  473. Penrose3 { ; by Herb Savage
  474. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers",
  475. ; Roger Penrose's rhombuses
  476.   Angle 10
  477.   Axiom [X]++[X]++[X]++[X]++[X]
  478.   W=YF++ZF----XF[-YF----WF]++
  479.   X=+YF--ZF[---WF--XF]+
  480.   Y=-WF++XF[+++YF++ZF]-
  481.   Z=--YF++++WF[+ZF++++XF]--XF
  482.   F=
  483.   }
  484.  
  485. Penrose4 { ; by Herb Savage
  486. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers",
  487. ; Roger Penrose's rhombuses
  488.   Angle 10
  489.   Axiom [Y]++[Y]++[Y]++[Y]++[Y]
  490.   W=YF++ZF----XF[-YF----WF]++
  491.   X=+YF--ZF[---WF--XF]+
  492.   Y=-WF++XF[+++YF++ZF]-
  493.   Z=--YF++++WF[+ZF++++XF]--XF
  494.   F=
  495.   }
  496.  
  497. DoublePenrose { ; by Herb Savage
  498. ; This is Penrose3 and Penrose4 superimposed
  499.   Angle 10
  500.   Axiom [X][Y]++[X][Y]++[X][Y]++[X][Y]++[X][Y]
  501.   W=YF++ZF----XF[-YF----WF]++
  502.   X=+YF--ZF[---WF--XF]+
  503.   Y=-WF++XF[+++YF++ZF]-
  504.   Z=--YF++++WF[+ZF++++XF]--XF
  505.   F=
  506.   }
  507.  
  508. Sphinx { ; by Herb Savage
  509. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers"
  510. ; This is an example of a "reptile"
  511.   Angle 6
  512.   Axiom X
  513.   X=+FF-YFF+FF--FFF|X|F--YFFFYFFF|
  514.   Y=-FF+XFF-FF++FFF|Y|F++XFFFXFFF|
  515.   F=GG
  516.   G=GG
  517.   }
  518.  
  519. PentaPlexity {
  520. ; Manual construction by Roger Penrose as a prelude to his development of
  521. ; the famous Penrose tiles (the kites and darts) that tile the plane
  522. ; only non-periodically.
  523. ; Translated first to a "dragon curve" and finally to an L-system
  524. ; by Joe Saverino.
  525.   Angle 10
  526.   Axiom F++F++F++F++F
  527.   F=F++F++F|F-F++F
  528.   }
  529.  
  530. ; old PentaPlexity:
  531. ; Angle 10
  532. ; Axiom F++F++F++F++Fabxjeabxykabxyelbxyeahxyeabiye
  533. ; F=
  534. ; a=Fabxjea
  535. ; b=++F--bxykab
  536. ; x=++++F----xyelbx
  537. ; y=----F++++yeahxy
  538. ; e=--F++eabiye
  539. ; h=+++++F-----hijxlh
  540. ; i=---F+++ijkyhi
  541. ; j=-F+jkleij
  542. ; k=+F-klhajk
  543. ; l=+++F---lhibkl
  544.  
  545. CircularTile { ; Adrian Mariano
  546.   axiom X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X+X
  547.   x=[F+F+F+F[---X-Y]+++++F++++++++F-F-F-F]
  548.   y=[F+F+F+F[---Y]+++++F++++++++F-F-F-F]
  549.   angle 24
  550.   }
  551.  
  552.