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

Tablero

para cuadradoblanco
repite 4[av 30 gd 90]
fin
para cuadradonegro
repite 4[av 30 gd 90]
gd 45 av 10
rellena
re 10 gi 45
fin
cuandradonegro
cuadradonegro
para filanegra
repite 4[cuadradonegro gd 90 av 30 gi 90 cuadradoblanco gd 90 av 30 gi 90]
fin
filanegra
bp
filanegra
para filablanca
repite 4 [cuadradoblanco gd 90 av 30 gi 90 cuadradonegro gd 90 av 30 gi 90]
fin
bp
filablanca
bp
filanegra
gi 90
av 240
gi 90
av 30
gd 180
filablanca
para tablero
Repite 1[filanegra gi 90 av 240 gi 90 av 30 gd 180 filablanca]
Fin
bp
tablero

PITAG