procedimientos xlogo semaforo y tablero de ajedrez

para semaforo
av 200 gd 90 av 70 gd 90 av 200 gd 90 av 70
gd 180 av 35 gi 90 sl av 35 bl circulo 25 poncl 1 rellena sl av 60 bl circulo 25 poncl 3 rellena sl av 60 bl circulo 25 poncl 2 rellena gd 180 sl av 70 bl gd 180
repite 60 [ espera 10 poncl 3 rellena espera 10 poncl 7 rellena ]
fin




para cb
repite 4 [ av 100 gd 90]
fin
para cn
cb gd 15 av 10 rellena re 10 gi 15
fin
para fn
repite 4 [cn
gd 90 av 100 gi 90
cb
gd 90 av 100 gi 90]
fin
para tableiro
repite 4 [ fn
gi 90 av 800 gd 90 av 100
fb
gi 90 av 800 gd 90 av 100 ]
fin
para fb
repite 4 [cb gd 90 av 100 gi 90
cn
gd 90 av 100 gi 90]
fin