Code: Select all
startshape FECUNDACION
rule FECUNDACION { OVULO {s 40 } SEMEN { x 30 } }
rule OVULO { CIRCLE {} OVULO { s .99 b .1 }}
rule SEMEN { LEFA {} LEFA {x 20 y 6 r 2 } }
rule SEMEN { LEFA {} SEMEN {x 20 y 6 r -6 } }
rule SEMEN { LEFA {y 10 } SEMEN {x 40 y 6 r 2 } }
rule SEMEN { LEFA {y 10 } SEMEN {x 80 y 6 r 4 } }
rule SEMEN .001 { }
rule LEFA { SPERMA {} LEFA {x 10 y 3 s .8 r 2 } }
rule LEFA { SPERMA {} LEFA {x 15 y -3 s .8 r -3 } }
rule LEFA { SPERMA {} LEFA {x 30 y 3 s .8 r -10 } }
rule LEFA { SPERMA {} LEFA {x 17 y -12 s .8 r 10 } }
rule LEFA { SPERMA {} LEFA {x 20 y 14 s .8 r -8 } }
rule LEFA { SPERMA {} LEFA {x 25 y -13 s .8 r 7 } }
rule SPERMA
{
CABEZA {}
CUELLO {x 2.2}
COLA { r -90 x 2.5 }
}
rule CABEZA
{
CIRCLE { }
CIRCLE { x .25 s 1.25 }
CIRCLE { x .5 s 1.5 }
CIRCLE { x 1 s 2 }
CIRCLE { x 1.2 s 1.75 }
}
rule CUELLO
{
CIRCLE {}
CIRCLE {x .5}
}
rule COLA { COLA1 {} }
rule COLA { COLA2 {} }
rule COLA1 {
CIRCLE { size 0.5 }
COLA1 { y .2 r -3 s 0.99 }
}
rule COLA1 .03{ COLA2 {} }
rule COLA2 {
CIRCLE { size 0.5 }
COLA2 { y .2 r 3 s 0.99 }
}
rule COLA2 .03{ COLA1 {} }