Semaforo

para circulorojo
poncl 10
repite 360[av 0.3 gd 1]
gd 90 av 10 rellena re 10 gi 90


para circuloambar
poncl 45
repite 360[av 0.3 gd 1]
gd 90 av 10 rellena re 10 gi 90
fin

para circuloverde
poncl 60
repite 360[av 0.3 gd 1]
gd 90 av 10 rellena re 10 gi 90
fin

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


rectangulo
av 30 gd 90 av 10 gi 90 circuloverde
sl av 50 bl circuloambar
sl av 50 bl circulorojo