Frank LLoyd Wright-esque Design
Posted: Wed Jul 06, 2005 7:46 pm
Code: Select all
startshape THING
rule BASE {
LINE{r 45}
LINE{r -45}
}
rule BASE2 {
BASE{}
BASE{y 5.72 r 180}
}
rule THING {
BASE2{}
THING{x 3 s .5}
THING{x -3 s .5}
}
rule THING {
BASE2{}
THING{y 3 s .5}
THING{y -3 s .5}
}
rule LINE {
SQUARE{}
SQUARE {y 1}
SQUARE {y 2}
SQUARE {y 3}
SQUARE {y 4}
}