Squares and Circles
Posted: Thu Jul 07, 2005 7:46 pm
One of my first tries. Slightly supremacist, I think.
[/img]
Code: Select all
startshape SQUARES
rule SQUARES {
SQUARE {b 0.8 x 0.1}
SQUARE{b 0 s 1}
SQUARE{b 1 s 0.9}
SQUARES {s 1 y 0.9 r 0}
}
rule SQUARES 0.3 {
SQUARES {s 0.5 x 1 r 90}
SQUARESORHALT {}
}
rule SQUARES 0.1 {
SQUARES {s 0.5 x 1 r 45}
SQUARESORHALT {}
}
rule SQUARES 0.1 {
SQUARES {s 0.9 x 1 r -90}
SQUARESORHALT {}
}
rule SQUARESORHALT {
SQUARES{}
}
rule SQUARESORHALT 0.9 {
CIRCLE {b 0.8 x 0.1}
CIRCLE {b 0 s 1 r 90}
}