1 ------------------------------------------------------------------------------
3 -- Nom du fichier : Spider.ads --
5 -- Auteur(s) : Livio Righetti --
7 -- Date de creation : 26-MARS-97 --
9 -- But : Mettre a disposition des fonctions graphiques --
12 -- Date de modif. : 18-SEPT-97 (G.corbaz) --
13 -- Raison : Utilisation du paquetage Adagraph --
15 -- Date de modif. : 7-AVRIL-99 (P.Girardet) --
16 -- Raison : Pour creer une librairie --
18 -- Date de modif. : 28 avril 2000 (SALAMIN Michel) --
19 -- Raison : Suppression de AdaGraph et utilisation d'une DLL --
20 -- faisant des appels directs aux API de Windows. --
22 -- Modules appeles : --
23 -- Mat. particulier : Graphmin.dll --
27 ------------------------------------------------------------------------------
35 ----------------------------------------------------------------------------
38 -- But : Retourne la taille maximale de l'ecran graphique en X. --
41 -- Sorties : - La taille maximale de l'ecran graphique en X. --
44 ----------------------------------------------------------------------------
46 function Get_Max_X
return Natural;
50 ----------------------------------------------------------------------------
53 -- But : Retourne la taille maximale de l'ecran graphique en Y. --
56 -- Sorties : - La taille maximale de l'ecran graphique en Y. --
59 ----------------------------------------------------------------------------
61 function Get_Max_Y
return Natural;
65 ----------------------------------------------------------------------------
68 -- But : Placer le curseur a une position (absolue) de l'ecran. --
70 -- Entrees : - X : Nouvel position (absolue) du point en X dans l'ecran. --
71 -- - Y : Nouvel position (absolue) du point en Y dans l'ecran. --
75 ----------------------------------------------------------------------------
77 procedure Move_To(X
: in Natural;
82 ----------------------------------------------------------------------------
85 -- But : Placer le curseur a une position en specifiant le --
88 -- Entrees : - DX : deplacement reltatif en X dans l'ecran. --
89 -- - DY : deplacement reltatif en Y dans l'ecran. --
93 ----------------------------------------------------------------------------
95 procedure Move(DX
: in Integer;
100 ----------------------------------------------------------------------------
103 -- But : Dessiner une ligne du point(X1,Y1) au point (X2,Y2). --
105 -- Entrees : - X1: Position (absolue) initiale du seg. en X dans l'ecran. --
106 -- - Y1: Position (absolue) initiale du seg. en Y dans l'ecran. --
107 -- : - X2: Position (absolue) finale du segment en X dans l'ecran.--
108 -- - Y2: Position (absolue) finale du segment en Y dans l'ecran.--
112 ----------------------------------------------------------------------------
114 procedure Line_To(X1
: in Natural;
121 ----------------------------------------------------------------------------
124 -- But : Dessiner une ligne de la position courante du curseur au --
125 -- point specifie en connaissant le deplacement DX,DY. --
127 -- Entrees : - DX : deplacement relatif en X dans l'ecran. --
128 -- - DY : deplacement relatif en Y dans l'ecran. --
132 ----------------------------------------------------------------------------
134 procedure Line(DX
: in Integer;
139 ----------------------------------------------------------------------------
140 -- Nom : clearWindow --
142 -- But : Efface l'ecran graphique. --
148 ----------------------------------------------------------------------------
150 procedure Clear_Window
;
153 ----------------------------------------------------------------------------
154 -- Nom : initWindow --
156 -- But : Ouvre la fenetre graphique de l'application. --
158 -- Entrees : - Le titre de la fenetre (apparait dans la barre de titre) --
162 ----------------------------------------------------------------------------
164 procedure Init_Window(Title
: in String);
169 ----------------------------------------------------------------------------
170 -- Nom : closeWindow --
172 -- But : ferme la fenetre graphique. --
178 ----------------------------------------------------------------------------
180 procedure Close_Window
;
184 Fenetre_Non_Init
: exception;
185 Fenetre_Deja_Init
: exception;
186 Pixel_Invalid
: exception;
187 Erreur_Inconnue
: exception;
193 procedure Traiter_Erreur(Valeur
: in Natural);