home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / f / fracxtr4.zip / TILING.L < prev    next >
Text File  |  1993-02-08  |  2KB  |  43 lines
  1. ; These LSystems are designed to be run from FRACTINT.  No compilation is
  2. ; necessary, just copy this file to the FRACTINT directory and run FRACTINT.
  3. ; Select the lsystem fractal type and press F6 to select a file.
  4.  
  5.  
  6. SpiralTile { ; by Herb Savage
  7. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers"
  8.   angle 16
  9.   axiom X++X++X++X++|G|X++X++X++X
  10.   X=[C12FX+++++@.7653668647C10F@I.7653668647[-----Y]+++++C12F]
  11.   Y=[C12F+++++@.7653668647C10F@I.7653668647[-----Y]+++++C12F]
  12.   }
  13.  
  14. VoderbergTile { ; by Herb Savage
  15. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers",
  16. ; A spiral tiling by Heinz Voderberg
  17.   angle 30
  18.   axiom \84.1A\96@4.783386117M@I4.783386117/96A
  19.   A=X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12Z
  20.   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]
  21.   Y=[D\78D\46.37236@3.393427D@I3.393427/46.37236D/78D\168[\192Y]D\78D\46.37236@3.393427D@I3.393427/46.37236D]
  22.   Z=[D\78D\46.37236@3.393427D@I3.393427/46.37236D\114D\78D\46.37236@3.393427D@I3.393427/46.37236D/78D]
  23.   }
  24.  
  25. ; These two aren't tilings but simple spiral patterns done by my 12 year old
  26. ; son Morgan that really need the warning from "Fractal Creations" about
  27. ; color cycling introducing hypnotic states.
  28.  
  29. Vertigo1 { ; by Morgan Savage
  30. ; Try order 13 and color cycle in both 256 and 16 color modes
  31.   Angle 46
  32.   Axiom X
  33.   X=X>1F+@.9997X
  34.   }
  35.  
  36. Vertigo2 { ; by Morgan Savage
  37. ; Try order 13 and color cycle in both 256 and 16 color modes
  38.   Angle 49
  39.   Axiom X
  40.   X=X>1F+@.9997X
  41.   }
  42.  
  43.