startshape Begin

rule UnitLine { SQUARE { x 0.5 } UnitLine { size 1 0.99 b -0.005 } } rule Joint { CIRCLE { } Joint { size 0.99 b -0.005 } }

rule LL {

Joint { size 0.25 }
Joint { y 0.5 size 0.25 }
Joint { x 0.5 size 0.25 }
UnitLine { size 0.5 0.25 z 0.5 }
UnitLine { size 0.5 0.25 r 90 z 0.5 }
Food { }

} rule LR { LL { flip 90 } } rule UL { LL { r -90 } } rule UR { UL { flip 90 } }

rule Horiz {

Joint { x 0.5 size 0.25 }
Joint { x -0.5 size 0.25 }
UnitLine { x -0.5 size 1 0.25 z 0.5 }
Food { }

} rule Vert { Horiz { r 90 } } rule Cross { Horiz { } Vert { } }

rule Food {

CIRCLE { x 0.5 y 0.5 size 0.125 h -180 z 0.75 }
CIRCLE { x 0.5 y -0.5 size 0.125 h -180 z 0.75 }
CIRCLE { x -0.5 y 0.5 size 0.125 h -180 z 0.75 }
CIRCLE { x -0.5 y -0.5 size 0.125 h -180 z 0.75 }

}

rule Pipe { LL { } }

rule Pipe { LR { } }

rule Pipe { UL { } }

rule Pipe { UR { } } rule Pipe { Horiz { } } rule Pipe { Vert { } } rule Pipe { Cross { } }

# The following rules were proposed by Guigui in response # to lat3x’s # observation that my Tube Tapestry picture resembles a Pac # Mac board.

rule Pipe .1{act{}Pipe{}} rule act {

CIRCLE{s .5 x .5 y .5 h -180 b 1 sat 1}
TRIANGLE{r 30 s .3 x .33 y .5 b -1}

} rule act 5{actG{x .5 y .375 s .5}} rule actG 10{actG{hue 36}} rule actG {

CIRCLE {y .25 b 1 sat 1}
SQUARE {s 1 .5 b 1 sat 1}
4*{x 0.286}CIRCLE {y -.25 s 0.143 x -0.4285 b 1 sat 1}
2*{x .4}CIRCLE {x -.2 b 1 s .3 y .3 z 1 sat -1}
2*{x .4}CIRCLE {x -.27 s .15 y .3 z 2 sat -1 b -1}

}

rule Row { 20*{ x 1 } Col { } } rule Col { 20*{ y 1 } Pipe { } } rule Begin { Row { h 240 sat 1 b 1 } }

background { b -1 } tile { size 20 }