Dekking's church

Dekking

Source code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
lsystem DekkingsChurch {
 
set symbols axiom = w x y z;
set iterations = 7;
 
interpret F as DrawForward(8);
interpret + as TurnLeft(90);
interpret - as TurnLeft(-90);
 
rewrite F to nothing;
rewrite w to F w + F - z F w - F + x;
rewrite z to + + F - - y - F + x + + F - - y - F + x;
rewrite y to + + F - - y + F - z;
rewrite x to F w + F - z;
}
 
process all with SvgRenderer;