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