# tortue.ads

    with GAda.Graphics ;
    use  GAda.Graphics ;

    package Tortue is

       Tortue_Dans_Hyperespace : exception ;

       procedure Ouvrir_Fenetre ;

       -- Positionne la tortue aux coordonnées indiquées
       procedure Aller_A (X, Y : Integer) ;

       -- L'origine est en bas à gauche
       function Largeur_Ecran return Integer ;
       function Hauteur_Ecran return Integer ;

       procedure Lever_Crayon ;
       procedure Baisser_Crayon ;

       procedure Avancer (Longueur : Float) ;
       procedure Reculer (Longueur : Float) ;

       -- Angle en degrés
       procedure Tourner_Gauche (Angle : Float) ;
       procedure Tourner_Droite (Angle : Float) ;

       -- Voir l'acteur GAda.Graphics pour la définition du type T_Couleur
       procedure Regler_Couleur (Coul : T_Couleur) ;

    end Tortue ;