with GAda.Graphics ;
use GAda.Graphics ;
package Tortue is
Tortue_Dans_Hyperespace : exception ;
procedure Ouvrir_Fenetre ;
procedure Aller_A (X, Y : Integer) ;
function Largeur_Ecran return Integer ;
function Hauteur_Ecran return Integer ;
procedure Lever_Crayon ;
procedure Baisser_Crayon ;
procedure Avancer (Longueur : Float) ;
procedure Reculer (Longueur : Float) ;
procedure Tourner_Gauche (Angle : Float) ;
procedure Tourner_Droite (Angle : Float) ;
procedure Regler_Couleur (Coul : T_Couleur) ;
end Tortue ;