winlogo semaforo

circulos coloreados


para circulo
repite 360[av 1 gd 1]
fin
bp
para circulorojo
poncl 10
repite 360[av 1 gd 1]
gd 90 av 10 rellena re 10 gi 90
fin
circulorojo
para circuloambar
poncl 45
repite 360[av 1 gd 1]
gd 90 av 10 rellena re 10 gi 90
fin
circuloambar
para circuloverde
poncl 4
repite 360[av 1 gd 1]
gd 90 av 10 rellena re 10 gi 90
fin
circuloverde