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 }

}