home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / dos / fraktale / fracxtr6.exe / L / MISC.L < prev    next >
Encoding:
Text File  |  1991-08-30  |  1.9 KB  |  68 lines
  1.  
  2. CantorDust { ; Adrian Mariano
  3. ; from The Fractal Geometry of Nature by Mandelbrot
  4.   Angle 6
  5.   Axiom F
  6.   F=FGF
  7.   G=GGG
  8.   }
  9.  
  10. CircularTile { ; Adrian Mariano
  11.   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
  12.   x=[F+F+F+F[---X-Y]+++++F++++++++F-F-F-F]
  13.   y=[F+F+F+F[---Y]+++++F++++++++F-F-F-F]
  14.   angle 24
  15.   }
  16.  
  17. Pentagram { ; created by Adrian Mariano
  18.   angle 10
  19.   axiom fx++fx++fx++fx++fx
  20. ; f=f[++++@1.618033989f]
  21.   x=[++++@i1.618033989f@.618033989f!x!@i.618033989f]
  22.   }
  23.  
  24. Sphinx { ; by Herb Savage
  25. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers"
  26. ; This is an example of a "reptile"
  27.   Angle 6
  28.   Axiom X
  29.   X=+FF-YFF+FF--FFF|X|F--YFFFYFFF|
  30.   Y=-FF+XFF-FF++FFF|Y|F++XFFFXFFF|
  31.   F=GG
  32.   G=GG
  33.   }
  34.  
  35. SpiralTile { ; by Herb Savage
  36. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers"
  37.   angle 16
  38.   axiom X++X++X++X++|G|X++X++X++X
  39.   X=[C12FX+++++@.7653668647C10F@I.7653668647[-----Y]+++++C12F]
  40.   Y=[C12F+++++@.7653668647C10F@I.7653668647[-----Y]+++++C12F]
  41.   }
  42.  
  43. Vertigo1 { ; by Morgan Savage
  44. ; Try order 13 and color cycle in both 256 and 16 color modes
  45.   Angle 46
  46.   Axiom X
  47.   X=X>1F+@.9997X
  48.   }
  49.  
  50. Vertigo2 { ; by Morgan Savage
  51. ; Try order 13 and color cycle in both 256 and 16 color modes
  52.   Angle 49
  53.   Axiom X
  54.   X=X>1F+@.9997X
  55.   }
  56.  
  57. VoderbergTile { ; by Herb Savage
  58. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers",
  59. ; A spiral tiling by Heinz Voderberg
  60.   angle 30
  61.   axiom \84.1A\96@4.783386117M@I4.783386117/96A
  62.   A=X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12Z
  63.   X=[D\78D\46.37236@3.393427D@I3.393427/46.37236D\114[\168X\24Y]D\78D\46.37236@3.393427D@I3.393427/46.37236D/78D]
  64.   Y=[D\78D\46.37236@3.393427D@I3.393427/46.37236D/78D\168[\192Y]D\78D\46.37236@3.393427D@I3.393427/46.37236D]
  65.   Z=[D\78D\46.37236@3.393427D@I3.393427/46.37236D\114D\78D\46.37236@3.393427D@I3.393427/46.37236D/78D]
  66.   }
  67.  
  68.