1º BTO

Para luz :x
    sl
    ponx :x
    pony 16
    bl
    poncl 47
    repite 12 [avanza 4 giraderecha 360/12]
  
    sl
    ponx :x
    pony 44
    bl
    poncl 12
    repite 12 [avanza 4 giraderecha 360/12]

    sl
    ponx :x
    pony 72
    bl
    poncl 10
    repite 12 [avanza 4 giraderecha 360/12]
    poncl 1
fin

Para semaforo :rect :luz
    rectangulo :rect
    luz :luz
fin


Para semaforos
    semaforo 0 -20
      encenderluz -17 72 10
    espera 200
      blanco
      luz -20
      encenderluz -17 16 47
      blanco2  
      espera 200
      blanco  
      encenderluz -17 44 12
      blanco3
      luz -20
    espera 200
    semaforo 50 30
fin

Para rectangulo :x2
    sl
    ponx :x2
    pony 0
    bl
    poncl 1
    repite 2 [avanza 90 giraizquierda 90 avanza 25 giraizquierda 90]
fin




Para blanco
    sl
    ponx -17
    pony 72
    bl
    poncl 16
    rellena
fin

Para blanco2
    sl
    ponx -17
    pony 44
    bl
    poncl 16
    rellena
fin

Para blanco3
    sl
    ponx -17
    pony 16
    bl
    poncl 16
    rellena
fin
para encenderluz :x :y :color
    sl
    ponx :x
    pony :y
    poncl :color
    bl
    rellena
fin