# Carré (Rouge, Jaune, Vert) avec préannonce
# Signal de manoeuvres

Aspect: red
  IconE:carre_e_c.xpm
  IconW:carre_w_c.xpm
  IconS:carre_s_c.xpm
  IconN:carre_n_c.xpm
  Action: stop

Aspect: Avertissement
  IconE:carre_e_a.xpm
  IconW:carre_w_a.xpm
  IconS:carre_s_a.xpm
  IconN:carre_n_a.xpm
Action: speedLimit 30

Aspect: Avertissement_Cli
  IconE:carre_e_a.xpm carre_e_n.xpm
  IconW:carre_w_a.xpm carre_w_n.xpm
  IconS:carre_s_a.xpm carre_s_n.xpm
  IconN:carre_n_a.xpm carre_n_n.xpm
Action: speedLimit 30

Aspect: Voie_Libre
  IconE:carre_e_vl.xpm
  IconW:carre_w_vl.xpm
  IconS:carre_s_vl.xpm
  IconN:carre_n_vl.xpm
Action: proceed

Aspect: Preannonce
  IconE:carre_e_vl.xpm carre_e_n.xpm 
  IconW:carre_w_vl.xpm carre_w_n.xpm
  IconS:carre_s_vl.xpm carre_s_n.xpm
  IconN:carre_n_vl.xpm carre_n_n.xpm
Action: speedLimit 160

OnInit:
  .aspect = red
  .fleeted = 0
end

OnCleared:
  if .aspect = red
    if next.aspect = red
       .aspect = Avertissement
    else
       if next.aspect = Avertissement 
          if next.nextLength < 1000
             .aspect = Avertissement_Cli 
          else
             .aspect = Preannonce
          end
       else
          if next.aspect = Avertissement_Cli
              .aspect = Preannonce
          else
              if next.aspect = Preannonce
                 .aspect = Voie_Libre
              else
                 .aspect = Voie_Libre
             end      
          end
       end
    end
      .fleeted = 0
  end
end

OnUpdate:
  if .aspect = red
    return
  end
  if next.aspect = red
       .aspect = Avertissement
  else
     if next.aspect = Avertissement 
          if next.nextLength < 1000
             .aspect = Avertissement_Cli 
          else
             .aspect = Preannonce 
          end
     else
        if next.aspect = Avertissement_Cli
             .aspect = Preannonce
        else
           if next.aspect = Preannonce
                .aspect = Voie_Libre
           else
                .aspect = Voie_Libre
           end
        end
     end
  end
end
end