simulation.ads

--
-- Contrôle de l'avion au sol
--

package Simulation is


   -- Lorsque l'avion est garé, cette action attend
   -- l'autorisation de rouler sur le taxiway.
   -- L'action termine lorsque l'autorisation est arrivée.
   procedure Attendre_Autorisation_Roulage ;


   -- Fait rouler l'avion en ligne droite jusqu'au point indiqué
   procedure Rouler_Vers (Dest : Character) ;


   -- Lorsque l'avion est en début de piste, cette action attend
   -- l'autorisation de décollage de la tour de contrôle.
   -- L'action termine lorsque l'autorisation est arrivée.
   procedure Attendre_Autorisation_Decollage ;


   -- Lorsque l'avion a obtenu l'autorisation de décollage,
   -- cette action parcourt toute la piste à grande vitesse,
   -- mais sans décoller, puis freine en fin de piste.
   -- L'action se termine lorsque l'avion est en fin de piste.
   procedure Parcourir_Piste ;

end Simulation ;