para semaforo
  bp ot sl
  ponpos [0 30]
  bl
  #dibuja las lámparas
  repite 3 [circulo 15 sl av 45 bl]
  sl
  ponpos [-30 0]
  bl
  # dibuja la carcasa
  repite 2 [av 150 gd 90 av 60 gd 90]
  sl
  ponpos [-15 0]
  bl 
   # dibuja el soporte
  ponrumbo 90
  repite 2 [av 30 gd 90 av 120 gd 90]
  sl
  ponpos [-50 -120]
  bl
  # dibuja la base
  ponrumbo 90
  repite 2 [av 100 gd 90 av 20 gd 90]
  # colorea el semáforo
  pintasemaforo
  #llama al programa
  programa
fin

para programa
  sl ponpos [0 30] bl
  poncl 2 rellena
  espera 120
  poncl 7 rellena
  sl ponpos [0 75] bl
  poncl 3 rellena
  espera 50
  poncl 7 rellena
  sl ponpos [0 120] bl
  poncl 1 rellena
  espera 150
  poncl 7 rellena
  programa
fin

para pintasemaforo
  sl ponpos [0 10] bl
  poncl 11 rellena
  sl ponpos [0 -10] bl
  rellena
  sl ponpos [0 -130] bl
  rellena
fin