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]}}