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 }