# 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 ;