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

1ºBTO: Semáforo (Ojo, es diferente al de 2º de 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

semaforo 50 30

fin



Para rectangulo :x2

sl

ponx :x2

pony 0

bl

repite 2 [avanza 90 giraizquierda 90 avanza 25 giraizquierda 90]

fin