sweet curves

[LaT3x]

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