startshape GRANDFATHER background { b -1 }
path TOY {
MOVETO { x 0 y 0 } LINETO { x 50 y 0 } STROKE { width .01 }
}
rule GRANDFATHER{
3*{ x 200 }FATHER { r 90 }
}
rule FATHER 33{
10*{ x 50 r 1}MOTHER { } 12*{ x 45 r 1}MOTHER { f 0 }
} rule FATHER 33{
10*{ x 50 r 3}MOTHER { } 12*{ x 45 r 3}MOTHER { f 0 }
} rule FATHER 33{
10*{ x 50 r -2}MOTHER { } 12*{ x 45 r -2}MOTHER { f 0 }
}
rule MOTHER{
CHILD { } MOTHER { s .95 r 5 x 10 }
}
rule CHILD{
20*{y .1}PET { } CHILD { s .95 r 22.5 b 5 sat .5 h .5 }
}
rule PET {
TOY { hue 100 }
}