home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / SLAKWARE / XAP3 / XFRACT.TGZ / XFRACT.tar / usr / lib / xfractint / tiling.l < prev    next >
Text File  |  1997-04-10  |  3KB  |  102 lines
  1.  
  2. ; These LSystems are designed to be run from FRACTINT.  No compilation is
  3. ; necessary, just copy this file to the FRACTINT directory and run FRACTINT.
  4. ; Select the lsystem fractal type and press F6 to select a file.
  5.  
  6.  
  7. ; This is the old ColorPenrose1 with three changes.
  8. ;   1. A brighter red and green
  9. ;   2. The name was changed to group the Penrose tilings together
  10. ;   3. The comment was corrected.
  11.  
  12. Penrose1Color { ; by Herb Savage
  13. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers",
  14. ; Roger Penrose's rhombuses
  15. ; Uses color to show similar lines
  16.   Angle 10
  17.   Axiom +WC10F--XC12F---YC12F--ZC10F
  18.   W=YC12F++ZC10F----XC12F[-YC12F----WC10F]++
  19.   X=+YC12F--ZC10F[---WC10F--XC12F]+
  20.   Y=-WC10F++XC12F[+++YC12F++ZC10F]-
  21.   Z=--YC12F++++WC10F[+ZC10F++++XC12F]--XC12F
  22.   F=
  23.   }
  24.  
  25. ; This tiling actually does what the old comment for ColorPenrose1 said
  26. ; it did.
  27.  
  28. Penrose1Forced { ; by Herb Savage
  29. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers",
  30. ; Roger Penrose's rhombuses
  31. ; Uses color to show the edge matching rules to force nonperiodicy
  32.   Angle 10
  33.   Axiom +WC10FC12F--XC11FC10F---YC10FC11F--ZC12FC10F
  34.   W=YC10FC11F++ZC12FC10F----XC11FC10F[-YC10FC11F----WC10FC12F]++
  35.   X=+YC10FC11F--ZC12FC10F[---WC10FC12F--XC11FC10F]+
  36.   Y=-WC10FC12F++XC11FC10F[+++YC10FC11F++ZC12FC10F]-
  37.   Z=--YC10FC11F++++WC10FC12F[+ZC12FC10F++++XC11FC10F]--XC11FC10F
  38.   F=
  39. }
  40.  
  41. KitesAndDarts { ; by Herb Savage
  42. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers",
  43. ; Roger Penrose's kites and darts
  44.   Angle 10
  45.   Axiom WG+XG+WG+XG+WG+XG+WG+XG+WG+X
  46.   W=[F][++@1.618033989F][++G---@.618033989G|X-Y|G|W]
  47.   X=[F+++@1.618033989F][++@.618033989GZ|X|-G|W]
  48.   Y=[+F][@1.618033989F][+G@.618033989|Y+X]
  49.   Z=[-F][@1.618033989F][@.618033989G--WG|+Z]
  50.   F=
  51.   }
  52.  
  53. KitesAndDartsColor { ; by Herb Savage
  54. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers",
  55. ; Roger Penrose's kites and darts
  56.   Angle 10
  57.   Axiom WG+XG+WG+XG+WG+XG+WG+XG+WG+X
  58.   W=[C10F][++@1.618033989C12F][++G---@.618033989G|X-Y|G|W]
  59.   X=[C10F+++@1.618033989C12F][++@.618033989GZ|X|-G|W]
  60.   Y=[+C10F][@1.618033989C12F][+G@.618033989|Y+X]
  61.   Z=[-C10F][@1.618033989C12F][@.618033989G--WG|+Z]
  62.   F=
  63.   }
  64.  
  65. SpiralTile { ; by Herb Savage
  66. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers"
  67.   angle 16
  68.   axiom X++X++X++X++|G|X++X++X++X
  69.   X=[C12FX+++++@.7653668647C10F@I.7653668647[-----Y]+++++C12F]
  70.   Y=[C12F+++++@.7653668647C10F@I.7653668647[-----Y]+++++C12F]
  71.   }
  72.  
  73. VoderbergTile { ; by Herb Savage
  74. ; based on Martin Gardner's "Penrose Tiles to Trapdoor Ciphers",
  75. ; A spiral tiling by Heinz Voderberg
  76.   angle 30
  77.   axiom \84.1A\96@4.783386117M@I4.783386117/96A
  78.   A=X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12X\12Z
  79.   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]
  80.   Y=[D\78D\46.37236@3.393427D@I3.393427/46.37236D/78D\168[\192Y]D\78D\46.37236@3.393427D@I3.393427/46.37236D]
  81.   Z=[D\78D\46.37236@3.393427D@I3.393427/46.37236D\114D\78D\46.37236@3.393427D@I3.393427/46.37236D/78D]
  82.   }
  83.  
  84. ; These two aren't tilings but simple spiral patterns done by my 12 year old
  85. ; son Morgan that really need the warning from "Fractal Creations" about
  86. ; color cycling introducing hypnotic states.
  87.  
  88. Vertigo1 { ; by Morgan Savage
  89. ; Try order 13 and color cycle in both 256 and 16 color modes
  90.   Angle 46
  91.   Axiom X
  92.   X=X>1F+@.9997X
  93.   }
  94.  
  95. Vertigo2 { ; by Morgan Savage
  96. ; Try order 13 and color cycle in both 256 and 16 color modes
  97.   Angle 49
  98.   Axiom X
  99.   X=X>1F+@.9997X
  100.   }
  101.  
  102.