1 ------------------------------------------------------------------------------
3 -- Nom du fichier : Spider.adb --
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 ------------------------------------------------------------------------------
31 package body Spider
is
35 procedure Traiter_Erreur(Valeur
: in Natural) is
38 when 1 => raise Fenetre_Non_Init
;
39 when 2 => raise Fenetre_Deja_Init
;
40 when 3 => raise Pixel_Invalid
;
41 when others => raise Erreur_Inconnue
;
47 function ADA_Get_Max_X
return Natural;
49 pragma import(DLL
,ADA_Get_Max_X
,"ADA_getMaxX");
51 function Get_Max_X
return Natural is
58 function ADA_Get_Max_Y
return Natural;
60 pragma import(DLL
,ADA_Get_Max_Y
,"ADA_getMaxY");
62 function Get_Max_Y
return Natural is
69 procedure ADA_Move_To(X
: in Natural;
72 pragma import(DLL
,ADA_Move_To
,"ADA_moveTo");
74 procedure Move_To(X
: in Natural;Y
: in Natural) is
81 procedure ADA_Move(DX
: in Integer;
84 pragma import(DLL
,ADA_Move
,"ADA_move");
86 procedure Move(DX
: in Integer;DY
: in Integer) is
93 procedure ADA_Line_To(X1
: in Natural;
99 pragma import(DLL
,ADA_Line_To
,"ADA_lineTo");
101 procedure Line_To(X1
: in Natural;
107 ADA_Line_To(X1
,Y1
,X2
,Y2
,Err
);
115 procedure ADA_Line(DX
: in Integer;
119 pragma import(DLL
,ADA_Line
,"ADA_line");
121 procedure Line(DX
: in Integer;
133 procedure ADA_Clear_Window(Err
: out Natural);
135 pragma import(DLL
,ADA_Clear_Window
,"ADA_clearWindow");
137 procedure Clear_Window
is
140 ADA_Clear_Window(Err
);
148 procedure ADA_Init_Window(Title
: in String;
151 pragma import(DLL
,ADA_Init_Window
,"ADA_initWindow");
153 procedure Init_Window(Title
: in String) is
154 ADA_Title
: String := Title
& Character'Val(0);
157 ADA_Init_Window(ADA_Title
,Err
);
165 procedure ADA_Close_Window(Err
: out Natural);
167 pragma import(DLL
,ADA_Close_Window
,"ADA_closeWindow");
169 procedure Close_Window
is
172 ADA_Close_Window(Err
);