Context Free Forums and Gallery

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 {} }