2º BTO: Semáforo

Para apagaluz :tiempoespera
 espera :tiempoespera
 poncl 16
 rellena
fin

Para colorealuz :equis :ygriega :color
 sl
 ponx :equis
 pony :ygriega
 bl
 poncl :color
 repite 12 [avanza 4 giraderecha 360/12]
 giraderecha 90
 avanza 5
 rellena
 giraizquierda 90
fin

Para grafico
 rectangulo
 activa [1 2]
 muestratortugas
 activa 2
 colorealuz 80 72 10 ; semáforo 2 color rojo
 activa 1
 colorealuz -20 72 10 ;semaforo 1 rojo
 apagaluz 300
 colorealuz -20 16 47 ;semaforo 1 verde
 apagaluz 300
 colorealuz -20 44 12 ;semaforo 1 amarillo
 apagaluz 300
 colorealuz -20 72 10 ; semaforo 1 rojo
  activa 2
 colorealuz 80 72 10 ;semaforo 2 rojo
 apagaluz 300
 colorealuz 80 16 47 ;semaforo 2 verde
 apagaluz 300
 colorealuz 80 44 12 ;semaforo 2 amarillo
 apagaluz 300
 colorealuz 80 72 10 ;semaforo 2 rojo
  si tecla? [borrapantalla alto]
 grafico
fin

Para rectangulo
 activa [1 2]
 muestratortugas
 sl
 activa 1
 ponx 0
 pony 0
 bl
 activa 2
 ponx 100
 pony 0
 activa [1 2]
 bl
 poncl 1
 repite 2 [avanza 90 giraizquierda 90 avanza 25 giraizquierda 90]
fin