# Carré (Rouge, Jaune, Vert) avec préannonce et ralentissement 30
# 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_30
  IconE:r30_60_e_r.xpm 
  IconW:r30_60_w_r.xpm 
  IconS:r30_60_s_r.xpm
  IconN:r30_60_n_r.xpm
Action: speedLimit 30

Aspect: Ralentissement_Avertiss_30
  IconE:r30_60_e_ra.xpm 
  IconW:r30_60_w_ra.xpm 
  IconS:r30_60_s_ra.xpm
  IconN:r30_60_n_ra.xpm
Action: speedLimit 30



OnInit:
  .aspect = red
  .fleeted = 0
end

OnCleared:
  if .aspect = red
       if next.aspect = Rappel_Ralentiss_30
          .aspect = Ralentissement_30
       else
          if next.aspect = Rappel_Ralentiss_Avertiss_30
             .aspect = Ralentissement_Avertiss_30
          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
      .fleeted = 0
end

OnUpdate:
  if .aspect = red
    return
  end
  if next.aspect = Rappel_Ralentiss_30
      .aspect = Ralentissement_30
  else
      if next.aspect = Rappel_Ralentiss_Avertiss_30
         .aspect = Ralentissement_Avertiss_30
      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