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

Aspect: red
  IconE:r30_60_e_c.xpm
  IconW:r30_60_w_c.xpm
  IconS:r30_60_s_c.xpm
  IconN:r30_60_n_c.xpm
  Action: stop

Aspect: Avertissement
  IconE:r30_60_e_a.xpm
  IconW:r30_60_w_a.xpm
  IconS:r30_60_s_a.xpm
  IconN:r30_60_n_a.xpm
Action: speedLimit 60

Aspect: Avertissement_Cli
  IconE:r30_60_e_a.xpm r30_60_e_n.xpm
  IconW:r30_60_w_a.xpm r30_60_w_n.xpm
  IconS:r30_60_s_a.xpm r30_60_s_n.xpm
  IconN:r30_60_n_a.xpm r30_60_n_n.xpm
Action: speedLimit 60

Aspect: Voie_Libre
  IconE:r30_60_e_vl.xpm
  IconW:r30_60_w_vl.xpm
  IconS:r30_60_s_vl.xpm
  IconN:r30_60_n_vl.xpm
Action: proceed

Aspect: Preannonce
  IconE:r30_60_e_vl.xpm r30_60_e_n.xpm 
  IconW:r30_60_w_vl.xpm r30_60_w_n.xpm
  IconS:r30_60_s_vl.xpm r30_60_s_n.xpm
  IconN:r30_60_n_vl.xpm r30_60_n_n.xpm
Action: speedLimit 160

Aspect: Ralentissement_60
  IconE:r30_60_e_r.xpm r30_60_e_n.xpm 
  IconW:r30_60_w_r.xpm r30_60_w_n.xpm 
  IconS:r30_60_s_r.xpm r30_60_s_n.xpm 
  IconN:r30_60_n_r.xpm r30_60_n_n.xpm 
Action: speedLimit 60

Aspect: Ralentissement_Avertiss_60
  IconE:r30_60_e_ra.xpm r30_60_e_a.xpm
  IconW:r30_60_w_ra.xpm r30_60_w_a.xpm
  IconS:r30_60_s_ra.xpm r30_60_s_a.xpm
  IconN:r30_60_n_ra.xpm r30_60_n_a.xpm
Action: speedLimit 60



OnInit:
  .aspect = red
  .fleeted = 0
end

OnCleared:
  if .aspect = red
    if next.aspect = Rappel_Ralentiss_60
       .aspect = Ralentissement_60
    else
       if next.aspect = Rappel_Ralentiss_Avertiss_60
          .aspect = Ralentissement_Avertiss_60
       else 
          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
      .fleeted = 0
  end
end

OnUpdate:
  if .aspect = red
    return
  end
  if next.aspect = Rappel_Ralentiss_60
      .aspect = Ralentissement_60
  else
      if next.aspect = Rappel_Ralentiss_Avertiss_60
         .aspect = Ralentissement_Avertiss_60
      else
         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
end
end