Control de un semáforo

Procedimiento para un semáforo

para semaforo
bp
poncl 1
repite 2 [av 100 gd 90 av 40 gd 90]
sl ponpos [5.5 20] bl repite 360 [av 0.25 gd 1]
sl ponpos [5.5 50] bl repite 360 [av 0.25 gd 1]
sl ponpos [5.5 80] bl repite 360 [av 0.25 gd 1]
verde espera 80
amarillo espera 50
rojo espera 80
semaforo

fin


para verde
     sl ponpos [5.5 20] poncl 11 bl repite 360 [av 0.25 gd 1]
     sl ponpos [10 20] bl rellena
     poncl 1
     sl ponpos [5.5 50] bl repite 360 [av 0.25 gd 1] ponpos [10 50]  rellena
     sl ponpos [5.5 80] bl repite 360 [av 0.25 gd 1] ponpos [10 80]  rellena
fin

para rojo
     sl ponpos [5.5 80] poncl 10 bl repite 360 [av 0.25 gd 1]
     sl ponpos [10 80] bl rellena
     poncl 1
     sl ponpos [5.5 50] bl repite 360 [av 0.25 gd 1] ponpos [10 50]  rellena
     sl ponpos [5.5 20] bl repite 360 [av 0.25 gd 1] ponpos [10 20]  rellena
fin

para amarillo
     sl ponpos [5.5 50] poncl 12 bl repite 360 [av 0.25 gd 1]
     sl ponpos [10 50] bl rellena
     poncl 1
     sl ponpos [5.5 20] bl repite 360 [av 0.25 gd 1] ponpos [10 20]  rellena
     sl ponpos [5.5 80] bl repite 360 [av 0.25 gd 1] ponpos [10 80]  rellena
fin