SCREW... if anybod wants to do something industrial :)

[LaT3x]

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 }

}