semaforo

para rectang
poncl 4
repite 2[av 150 gd 90 av 50 gd 90]
gd 10 av 10
rellena
re 10 gi 10
fin
rectang
bp

para circulorojo
poncl 10
repite 360 [av 0.3 gd 1]
gd 90 av 10 rellena re 10 gi 90
fin
circulorojo
bp
circulorojo
bp
para circuloambar
poncl 45
repite 360 [av 0.3 gd 1]
gd 90 av 10 rellena re 10 gi 90
fin
circuloambar
para circuloverde
poncl 62
repite 360 [av 0.3 gd 1]
gd 90 av 10 rellena re 10 gi 90
fin
circuloverde
bp
rectang
av 30 gd 90 av 10 gi 90 circuloverde
sl av 50 bl circuloambar
sl av 50 bl circulorojo

tablero

para cuadn
repite 4 [ av 50 gd 90 ]
gd 45 av 10
rellena
re 10 gi 45
fin
cuadn
para cuadb
repite 4 [ av 50 gi 90 ]
fin
cuadb
bp
para filan
repite 4 [ cuadn gd 90 av 50 cuadb av 50 gi 90 ]
fin
filan
para filab
repite 3 [ cuadb cuadn gd 90 av 50 cuadb av 50 gi 90 cuadn ]
fin
filab
para tablero
repite 4 [ filab gi 90 av 350 gd 90 re 50 filan gd 90 re 350 gi 90 re 50]
fin
tablero

rayos

para RAYOS :n :I
repite :n [ av :I re :I gd 360/:n ]
fin

para Polig :n :I
repite :n [ av :I gd 360/:n ]
fin

Motor de 4 Tiempos