Context Free CF3 program example © Program Art for Design PHYL:
startshape PHYL
//Creative Common License
//Non-Commercial Use
//Share alike, Switzerland
CF::Size=[s 16] CF::Background=[b -.2 sat 1 h 60]
shape PATTern
{CIRCLE [s 1.6 sat 1 ] CIRCLE [s 1.2 b 1 z 1]
SQUARE [s .15 1.2 z 2 r 34] SQUARE [s .1 1.2 z 2 r 134]}
shape PHspir (natural REC)
{PATTern [ ]
if (REC>1)
PHspir(REC--1) [[ x .5 y .5 s .9 x .5 y .5 r 5 b .05 h 1]]}
shape PHYL
{loop 36 [r 10] PHspir(28) [y -10.6 x -1.4 ]
CIRCLE [s .86 h 200 sat 1 b .5]}
Context Free CF3 program example © Program Art for design SPOnGE:
startshape SPOnGE
CF::Size=[s 13.5]
//Var: FQZ
path SQ
{
MOVETO(-.5 ,-.5) LINEREL(0,1)
LINEREL(1,0) LINEREL(0,-1)
LINEREL(-1,0) CLOSEPOLY( )
STROKE(.1...28) [ ] FILL [a -.1..-.5 sat 0 b 1]
}
DIS=1 S=1.5
shape SPOnge(natural REC)
{
SQ [ ]
if ((REC)>0)
{
SPOnge(REC--1) [s S x DIS y DIS]
SPOnge(REC--1) [s S x -DIS y DIS]
SPOnge(REC--1) [s S x -DIS y -DIS]
SPOnge(REC--1) [s S x DIS y -DIS]
SPOnge(REC--1) [s S x DIS]
SPOnge(REC--1) [s S y DIS]
SPOnge(REC--1) [s S x -DIS]
SPOnge(REC--1) [s S y -DIS]
}}
shape SPOnGE
{
loop 150 [s .985 z -3]
loop 4 [s .5 z 10]
SPOnge(3) [ ]}
Context Free CF3 Program © Program Art for design S_Morris:
startshape S_Morris
//Creative Common License
//Non-Commercial Use
//Share alike, Switzerland
CF::Background = [b -1]
CF::Size=[s 10 x -1.4 y -1.7]
path CICLI
{
MOVETO (-3,0) ARCREL (6 ,0, 3)
ARCREL (-6 ,0, 3) CLOSEPOLY ( )
STROKE( .2) [ ]
}
shape Sarah
{
loop 550[[x -3 s .999 x 3 sat .005 z .0001]]
CICLI [h 180 b 1]
}
shape S_Morris
{
loop 6 [x 3.6 h 30 r 90 s .85 z .1]
loop 6 [y 5 h 50 r 90 s .5 z 100]
Sarah [ ]
}
Context Free CF3 Program © Program Art for design SingleRuleDisplay:
startshape SingleRuleDisplay(2400)
//Creative Commons License
//Non Commercial, Share Alike
//Switzerland
CF::Impure=1
CF::Size=[s 10 y -10 x 2.2]
S1=5, .15 S2=.05, 5
shape SingleRuleDisplay(REC)
{trans [r -.5] {SQUARE [s S1 x 2.5]
SQUARE [s S2 y 1.32 x 4.8 r (REC/900) z -1 sat 1 b .5]
if (REC>1)
SingleRuleDisplay(REC-1) [s .9987 x 2.5 r 10.9]}}