# Carré (Rouge, Jaune, Vert) avec rappel ralentissement 30
# Signal de manoeuvres

Aspect: red
  IconE:rr30_60_e_c.xpm
  IconW:rr30_60_w_c.xpm
  IconS:rr30_60_s_c.xpm
  IconN:rr30_60_n_c.xpm
  Action: stop

Aspect: Avertissement
  IconE:rr30_60_e_a.xpm
  IconW:rr30_60_w_a.xpm
  IconS:rr30_60_s_a.xpm
  IconN:rr30_60_n_a.xpm
Action: speedLimit 60

Aspect: Avertissement_Cli
  IconE:rr30_60_e_a.xpm rr30_60_e_n.xpm
  IconW:rr30_60_w_a.xpm rr30_60_w_n.xpm
  IconS:rr30_60_s_a.xpm rr30_60_s_n.xpm
  IconN:rr30_60_n_a.xpm rr30_60_n_n.xpm
Action: speedLimit 60

Aspect: Voie_Libre
  IconE:rr30_60_e_vl.xpm
  IconW:rr30_60_w_vl.xpm
  IconS:rr30_60_s_vl.xpm
  IconN:rr30_60_n_vl.xpm
Action: proceed

Aspect: Preannonce
  IconE:rr30_60_e_vl.xpm rr30_60_e_n.xpm 
  IconW:rr30_60_w_vl.xpm rr30_60_w_n.xpm
  IconS:rr30_60_s_vl.xpm rr30_60_s_n.xpm
  IconN:rr30_60_n_vl.xpm rr30_60_n_n.xpm
Action: speedLimit 160

Aspect: Ralentissement_30
  IconE:rr30_60_e_r.xpm 
  IconW:rr30_60_w_r.xpm 
  IconS:rr30_60_s_r.xpm
  IconN:rr30_60_n_r.xpm
Action: speedLimit 30

Aspect: Ralentissement_Avertiss_30
  IconE:rr30_60_e_ra.xpm 
  IconW:rr30_60_w_ra.xpm 
  IconS:rr30_60_s_ra.xpm
  IconN:rr30_60_n_ra.xpm
Action: speedLimit 30

Aspect: Rappel_Ralentiss_30
  IconE:rr30_60_e_rr.xpm 
  IconW:rr30_60_w_rr.xpm
  IconS:rr30_60_s_rr.xpm
  IconN:rr30_60_n_rr.xpm
Action: speedLimit 30

Aspect: Rappel_Ralentiss_Avertiss_30
  IconE:rr30_60_e_rra.xpm 
  IconW:rr30_60_w_rra.xpm
  IconS:rr30_60_s_rra.xpm
  IconN:rr30_60_n_rra.xpm
Action: speedLimit 30

Aspect: Rappel_Ralentiss_Avertiss_Cli_30
  IconE:rr30_60_e_rra.xpm rr30_60_e_rr.xpm 
  IconW:rr30_60_w_rra.xpm rr30_60_w_rr.xpm 
  IconS:rr30_60_s_rra.xpm rr30_60_s_rr.xpm 
  IconN:rr30_60_n_rra.xpm rr30_60_n_rr.xpm 
Action: speedLimit 30

OnInit:
  .aspect = red
  .fleeted = 0
end

OnCleared:
   if .switchThrown = 1
      if   next.aspect = red
         .aspect = Rappel_Ralentiss_Avertiss_30
      else
         if next.aspect = Avertissement 
            if next.nextLength < 1000
                .aspect = Rappel_Ralentiss_Avertiss_Cli_30
            else
                .aspect = Rappel_Ralentiss_30
            end
         else
                .aspect = Rappel_Ralentiss_30            
         end
      end
   else
      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 = Voie_Libre
                     end
                  else
                     if next.aspect = Avertissement_Cli
                        .aspect = Voie_Libre
                     else
                        .aspect = Voie_Libre
                     end
                  end
               end
            end
         end
         .fleeted = 0
      end
   end
end

OnUpdate:
   if .aspect = red
       return
   end
   if .switchThrown = 1
      if   next.aspect = red
         .aspect = Rappel_Ralentiss_Avertiss_30
      else
         if next.aspect = Avertissement 
            if next.nextLength < 1000
                .aspect = Rappel_Ralentiss_Avertiss_Cli_30
            else
                .aspect = Rappel_Ralentiss_30
            end
         else
                .aspect = Rappel_Ralentiss_30          
         end
      end
   else
      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 = Voie_Libre
                  end
               else
                  if next.aspect = Avertissement_Cli
                     .aspect = Voie_Libre
                  else
                     .aspect = Voie_Libre
                  end
               end
            end
         end
      end
   end
end
end