mission2a.adb

--
-- Ce programme effectue un tour de piste
--
-- Changement par rapport à la mission 1 : on utilise maintenant Avion_Sol et Tour
--
with Avion_Sol ;
with Tour ;

procedure Mission2A is

   package AS renames Avion_Sol ;

   -- Cette action déplace l'avion du point K au début de la piste
   procedure Rouler_KA is
   begin
      Tour.Attendre_Autorisation_Roulage ;
      AS.Rouler_Vers (Dest => 'L') ;
      AS.Rouler_Vers (Dest => 'M') ;

      -- Facultatif :
      --AS.Rouler_Vers (Dest => 'H') ;
      --AS.Rouler_Vers (Dest => 'G') ;
      --AS.Rouler_Vers (Dest => 'F') ;

      AS.Rouler_Vers (Dest => 'E') ;
      AS.Rouler_Vers (Dest => 'A') ;
   end Rouler_KA ;


   -- Cette action déplace l'avion de la fin de la piste au point K
   procedure Rouler_DK is
   begin
      AS.Rouler_Vers (Dest => 'N') ;
      AS.Rouler_Vers (Dest => 'P') ;

      --AS.Rouler_Vers (Dest => 'R') ;
      --AS.Rouler_Vers (Dest => 'S') ;
      --AS.Rouler_Vers (Dest => 'T') ;

      AS.Rouler_Vers (Dest => 'M') ;
      AS.Rouler_Vers (Dest => 'L') ;
      AS.Rouler_Vers (Dest => 'K') ;
   end Rouler_DK ;


   procedure Tester_Roulage is
   begin
      -- Aller en début de piste
      Rouler_KA ;

      -- Parcourir la piste
      Tour.Attendre_Autorisation_Decollage ;
      AS.Parcourir_Piste ;

      -- Retour au bercail
      Rouler_DK ;
   end Tester_Roulage ;


begin
   Tester_Roulage ;
end Mission2A ;