train.ads

package Train is

   -- Oriente le train d'atterrissage à gauche, à droite, ou le positionne tout droit :
   procedure Positionner_A_Gauche ;
   procedure Positionner_A_Droite ;
   procedure Positionner_A_Zero ;

   -- Rentre ou sort les trains d'atterrissage
   -- Pour le SORTIR  : mettre Sens à TRUE
   -- Pour le RENTRER : mettre Sens à FALSE
   procedure Deplacer_Train (Sens : Boolean) ;





   --
   -- Pour un contrôle plus fin du train avant
   --
   -- A N'UTILISER QUE SI VOUS AVEZ DEJA UNE SOLUTION QUI MARCHE EN UTILISANT
   -- LES PROCEDURES A_GAUCHE et A_DROITE
   --
   -- Positionne le train d'atterrissage précisément selon l'orientation indiquée
   -- L'angle 0 signifie que le train est parfaitement droit
   -- Un angle positif fait tourner à droite
   -- Un angle négatif fait tourner à gauche
   -- L'angle doit être compris dans [-Course_Max ; +Course_Max] (défini ci-après)
   procedure Pivoter_Train_Avant (Angle : Float) ;

   -- Orientation maximale du train avant en degrés.
   Course_Max : constant Float := 45.0 ;


end Train ;