Code: Select all
startshape linea
rule linea
{
CIRCLE { }
linea { x 2 s .99 r 2 }
}
rule linea .01
{
linea { r 90 s .8 }
linea { r -90 s .8 }
}
rule linea .006
{
tronco { b .3 s .6 }
}
rule tronco { tallo {} tronco { r -45 s .8 } }
rule tallo { talloR {r 90} }
rule tallo { talloL {r 90} }
rule talloR { CIRCLE {} talloR { x .1 s .9999 r .09 } }
rule talloR .0008 { spiral1 {} }
rule talloR .0008 { spiral2 {} }
rule talloL { CIRCLE {} talloL { x .1 s .9999 r -.09 } }
rule talloL .0008 { spiral1 {} }
rule talloL .0008 { spiral2 {} }
rule spiral1
{
CIRCLE { }
spiral1 { x 0.3 r 0.1 s 0.999 b .0004}
}
rule spiral1 .001 { spiral1 {} spiral2 {} }
rule spiral2
{
CIRCLE { }
spiral2 { x 0.3 r -0.25 s 0.999 b .0005}
}
rule spiral2 .002 { spiral2 {} spiral1 {} }