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