home *** CD-ROM | disk | FTP | other *** search
- L-System
- L-Sprites
-
- Name=CircularTile
- Iter=3
- Angles=24
- 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
- X=[F+F+F+F[---X-Y]+++++F++++++++F-F-F-F]
- Y=[F+F+F+F[---Y]+++++F++++++++F-F-F-F]
-
- Name=DoublePenrose
- Iter=3
- Angles=10
- Axiom=[X][Y]++[X][Y]++[X][Y]++[X][Y]++[X][Y]
- W=YF++ZF----XF[-YF----WF]++
- X=+YF--ZF[---WF--XF]+
- Y=-WF++XF[+++YF++ZF]-
- Z=--YF++++WF[+ZF++++XF]--XF
- F=
-
- Name=KitesAndDarts
- Iter=4
- Angles=10
- Axiom=Wf+Xf+Wf+Xf+Wf+Xf+Wf+Xf+Wf+X
- W=[F][++@1.618033989F][++f---@.618033989f|X-Y|f|W]
- X=[F+++@1.618033989F][++@.618033989fZ|X|-f|W]
- Y=[+F][@1.618033989F][+f@.618033989|Y+X]
- Z=[-F][@1.618033989F][@.618033989f--Wf|+Z]
- F=
-
- Name=KitesAndDartsColor
- Iter=4
- Angles=10
- Axiom=Wf+Xf+Wf+Xf+Wf+Xf+Wf+Xf+Wf+X
- W=[c99F][++@1.618033989c143F][++f---@.618033989f|X-Y|f|W]
- X=[c99F+++@1.618033989c143F][++@.618033989fZ|X|-f|W]
- Y=[+c99F][@1.618033989c143F][+f@.618033989|Y+X]
- Z=[-c99F][@1.618033989c143F][@.618033989f--Wf|+Z]
- F=
-
- Name=Kites&Darts
- Iter=5
- Angles=10
- Axiom=k
- k=+[@.618034a]F@.618034---[-k]F-F---[-k]@I.618034F[@.618034|a]
- a=[@.618034k]+F@.618034[|a]----F+F----[a]@I.618034F
- F=f
-
- Name=Kites&Darts2
- Iter=4
- Angles=10
- Axiom=[k]++[k]++[k]++[k]++[k]
- k=+[@.618034a]F@.618034---[-k]F-F---[-k]@I.618034F[@.618034|a]
- a=[@.618034k]+F@.618034[|a]----F+F----[a]@I.618034F
- F=f
-
- Name=Kites&Darts3
- Iter=4
- Angles=10
- Axiom=[a]++[a]++[a]++[a]++[a]
- k=+[@.618034a]F@.618034---[-k]F-F---[-k]@I.618034F[@.618034|a]
- a=[@.618034k]+F@.618034[|a]----F+F----[a]@I.618034F
- F=f
-
- Name=Kites&DartsColor
- Iter=4
- Angles=10
- Axiom=c143[k]++[k]++[k]++[k]++[k]
- k=+[@.618034a[f---@.618c99F][--f+++@.618c99F]]F@.618034---[-k]F-F---[-k]@I.618034F[@.618034|a]
- a=[@.618034k]+F@.618034[|a][|f++@.382c99F]----F+F----[a][f--@.382c99F]@I.618034F
- F=f
-
- Name=Losanges
- Iter=4
- Angles=10
- Axiom=x
- x=@.618034+F[|y]--F[|x][|+@.618034f@I.618034x]---[x]F--[y]F
- y=@.618034++[x]F|+F[|y]-[y]F|+F[|x]
- F=f
-
- Name=Penrose1
- Iter=3
- Angles=10
- Axiom=+WF--XF---YF--ZF
- W=YF++ZF----XF[-YF----WF]++
- X=+YF--ZF[---WF--XF]+
- Y=-WF++XF[+++YF++ZF]-
- Z=--YF++++WF[+ZF++++XF]--XF
- F=
-
- Name=Penrose1Color
- Iter=4
- Angles=10
- Axiom=+Wc99F--Xc143F---Yc143F--Zc99F
- W=Yc143F++Zc99F----Xc143F[-Yc143F----Wc99F]++
- X=+Yc143F--Zc99F[---Wc99F--Xc143F]+
- Y=-Wc99F++Xc143F[+++Yc143F++Zc99F]-
- Z=--Yc143F++++Wc99F[+Zc99F++++Xc143F]--Xc143F
- F=
-
- Name=Penrose1Forced
- Iter=4
- Angles=10
- Axiom=+Wc64Fc108F--Xc67Fc64F---Yc64Fc67F--Zc108Fc64F
- W=Yc64Fc67F++Zc108Fc64F----Xc67Fc64F[-Yc64Fc67F----Wc64Fc108F]++
- X=+Yc64Fc67F--Zc108Fc64F[---Wc64Fc108F--Xc67Fc64F]+
- Y=-Wc64Fc108F++Xc67Fc64F[+++Yc64Fc67F++Zc108Fc64F]-
- Z=--Yc64Fc67F++++Wc64Fc108F[+Zc108Fc64F++++Xc67Fc64F]--Xc67Fc64F
- F=
- c=
-
- Name=Penrose2
- Iter=3
- Angles=10
- Axiom=++ZF----XF-YF----WF
- W=YF++ZF----XF[-YF----WF]++
- X=+YF--ZF[---WF--XF]+
- Y=-WF++XF[+++YF++ZF]-
- Z=--YF++++WF[+ZF++++XF]--XF
- F=
-
- Name=Penrose3
- Iter=3
- Angles=10
- Axiom=[X]++[X]++[X]++[X]++[X]
- W=YF++ZF----XF[-YF----WF]++
- X=+YF--ZF[---WF--XF]+
- Y=-WF++XF[+++YF++ZF]-
- Z=--YF++++WF[+ZF++++XF]--XF
- F=
-
- Name=Penrose4
- Iter=3
- Angles=10
- Axiom=[Y]++[Y]++[Y]++[Y]++[Y]
- W=YF++ZF----XF[-YF----WF]++
- X=+YF--ZF[---WF--XF]+
- Y=-WF++XF[+++YF++ZF]-
- Z=--YF++++WF[+ZF++++XF]--XF
- F=
-
- Name=Penta
- Iter=4
- Angles=20
- Axiom=[x]++++[x]++++[x]++++[x]++++[x]
- x=@.618034++f[@1.1755-------F][|y]----f[|x][|++@.618034f@I.618034x]------[x]f----[y]f
- y=@.618034++++[x]f|++f[|y]--[y]f|++f[|x]
- F=f
-
- Name=PentaColor
- Iter=3
- Angles=20
- Axiom=c143[x]++++[x]++++[x]++++[x]++++[x]
- x=@.618034++F[c99@1.1755-------F][|y]----F[|x][|++@.618034f@I.618034x]------[x]F----[y]F
- y=@.618034++++[x]F|++F[|y]--[y]F|++F[|x]
- F=f
-
- Name=PentaPlexity
- Iter=3
- Angles=10
- Axiom=F++F++F++F++F
- F=F++F++F|F-F++F
-
- Name=SpiralTile
- Iter=4
- Angles=16
- Axiom=X++X++X++X++|f|X++X++X++X
- X=[c143FX+++++@.7653668647c99F@I.7653668647[-----Y]+++++c143F]
- Y=[c143F+++++@.7653668647c99F@I.7653668647[-----Y]+++++c143F]
-
- Name=Stars&PentasColor
- Iter=4
- Angles=20
- Axiom=c143k
- k=++[@.618034[f-c99@.5878[F]------FF++++F]a]F@.618034------[--k]F--F------[--k]@I.618034F[@.618034|a]
- a=[@.618034k]++F@.618034[|[fc99@.5878+++++++F]a]--------F++F--------[c99f@.5878-------F][a]@I.618034F
- F=f
-
- Name=Stars&Pentas1
- Iter=3
- Angles=20
- Axiom=[k]++++[k]++++[k]++++[k]++++[k]
- k=++[@.618034[f-@.5878[F]------FF++++F]a]f@.618034------[--k]f--f------[--k]@I.618034f[@.618034|a]
- a=[@.618034k]++f@.618034[|[f@.5878+++++++F]a]--------f++f--------[f@.5878-------F][a]@I.618034f
- F=f
-
- Name=Stars&Pentas2
- Iter=3
- Angles=10
- Axiom=u
- u=@.381966[v]F[|y][-u]++F|+[v]F[|y]++F|+[v]F[|y]++F|+[v]F[|y]++F|+[v]F[|y]++F
- v=@.381966[v]F[|y]++F|+[v]F[|y]-[u]F-F|+[v]F[|y]++F
- w=@.381966f++[u]F|+F-F|+[v]F[|y]
- y=@.381966[x][y][w]F[|!y]++F++[y][w]F[|!y]++F++[z]F
- x=@.381966f++f++[!x][!z]F--[!z]F--[!z]F--[!z]F--[!z]F
- z=@.381966[z][x]F++[z]F++[w][y]F[|!y]++F++[z]F
- F=f
-