Code: Select all
startshape regleta
rule regleta
{
tornillo { }
tornillo { x 2 }
tornillo { x 4 }
tornillo { x 6 }
}
rule tornillo { clavo { } }
rule tornillo { clavo { r 15 } }
rule tornillo { clavo { r 30 } }
rule tornillo { clavo { r 45 } }
rule tornillo { clavo { r 60 } }
rule tornillo { clavo { r 75 } }
rule tornillo { clavo { r 95 } }
rule tornillo { clavo { r -15 } }
rule tornillo { clavo { r -30 } }
rule tornillo { clavo { r -45 } }
rule tornillo { clavo { r -60 } }
rule tornillo { clavo { r -75 } }
rule tornillo { clavo { r -95 } }
rule clavo
{
CIRCLE { }
linea { y -.45 r 90 b 1 s .1000001}
}
rule linea
{
SQUARE { }
SQUARE { x 1 }
SQUARE { x 2 }
SQUARE { x 3 }
SQUARE { x 4 }
SQUARE { x 5 }
SQUARE { x 6 }
SQUARE { x 7 }
SQUARE { x 8 }
SQUARE { x 9 }
}