1 ------------------------------------------------------------------------------
3 -- Nom du fichier : Draw.ads --
5 -- Auteur(s) : SALAMIN Michel / Assistant HEV --
6 -- Ecole d'ingenieurs du canton de Vaud (EIVD) --
8 -- Date de creation : 20 avril 2000 --
10 -- But : Mettre a disposition les fonctions graphiques --
12 -- - gerer la couleur sous Spider --
13 -- - dessiner des cercles --
14 -- - dessiner des rectangles --
15 -- - changer la couleur d'un pixel --
17 -- Date de modif. : --
20 -- Modules appeles : --
21 -- Mat. particulier : Graphmin.dll --
25 ------------------------------------------------------------------------------
29 package Spider
.Draw
is
33 -- Type de remplissage pour les formes.
34 type tFill
is (fill
, noFill
);
36 -- Type pour les couleur.
43 black
: constant tColor
:= ( 0, 0, 0);
44 blue
: constant tColor
:= ( 0, 0,255);
45 green
: constant tColor
:= ( 0,255, 0);
46 cyan
: constant tColor
:= ( 0,255,255);
47 red
: constant tColor
:= (255, 0, 0);
48 magenta
: constant tColor
:= (255, 0,255);
49 brown
: constant tColor
:= (128, 64, 0);
50 lightGray
: constant tColor
:= (192,192,192);
51 darkGray
: constant tColor
:= (128,128,128);
52 lightBlue
: constant tColor
:= (128,128,255);
53 lightGreen
: constant tColor
:= (128,255,128);
54 lightCyan
: constant tColor
:= (128,255,255);
55 lightRed
: constant tColor
:= (255,128,128);
56 lightMagenta
: constant tColor
:= (255,128,255);
57 yellow
: constant tColor
:= (255,255, 0);
58 white
: constant tColor
:= (255,255,255);
61 ----------------------------------------------------------------------------
62 -- Nom : getColorPen --
64 -- But : Indique la couleur utilisee pour les dessins. --
67 -- Sorties : - la couleur utilisee. --
70 ----------------------------------------------------------------------------
72 function Get_Color_Pen
return tColor
;
76 ----------------------------------------------------------------------------
77 -- Nom : getColorBackground --
79 -- But : Indique la couleur de l'arriere plan. --
82 -- Sorties : - la couleur de l'arriere plan. --
85 ----------------------------------------------------------------------------
87 function Get_Color_Background
return tColor
;
91 ----------------------------------------------------------------------------
92 -- Nom : getColorText --
94 -- But : Indique la couleur du texte. --
97 -- Sorties : - la couleur du texte. --
100 ----------------------------------------------------------------------------
102 function Get_Color_Text
return tColor
;
106 ----------------------------------------------------------------------------
107 -- Nom : getWidthChar --
109 -- But : Indique la largeur max en pixel des caracteres de la font --
113 -- Sorties : - la largeur max --
116 ----------------------------------------------------------------------------
118 function Get_Width_Char
return Natural;
122 ----------------------------------------------------------------------------
123 -- Nom : getHeightChar --
125 -- But : Indique la hauteur max en pixel des caracteres de la font --
129 -- Sorties : - la hauteur max --
132 ----------------------------------------------------------------------------
134 function Get_Height_Char
return Natural;
138 ----------------------------------------------------------------------------
139 -- Nom : setColorPen --
141 -- But : Defini la couleur pour les dessins. --
143 -- Entrees : - color: la couleur a appliquer --
147 ----------------------------------------------------------------------------
149 procedure Set_Color_Pen(Color
: in tColor
);
153 ----------------------------------------------------------------------------
154 -- Nom : setColorBackground --
156 -- But : Defini la couleur de l'arriere plan. --
158 -- Entrees : - color: la couleur a appliquer --
162 ----------------------------------------------------------------------------
164 procedure Set_Color_Background(Color
: in tColor
);
168 ----------------------------------------------------------------------------
169 -- Nom : setColorText --
171 -- But : Defini la couleur du texte. --
173 -- Entrees : - color: la couleur a appliquer --
177 ----------------------------------------------------------------------------
179 procedure Set_Color_Text(Color
: in tColor
);
183 ----------------------------------------------------------------------------
184 -- Nom : displayText --
186 -- But : Affiche un texte dans la fenetre graphique a partir de la --
187 -- position courante. --
189 -- Entrees : - text: chaine de caracteres a afficher --
193 ----------------------------------------------------------------------------
195 procedure Display_Text(Text
: in String);
199 ----------------------------------------------------------------------------
202 -- But : Dessine un cercle dans la fenetre graphique dont le centre --
203 -- est a la position courante. --
205 -- Entrees : - radius : Rayon du cercle --
206 -- - filled : Indique si il est plein ou si il n'y a que le --
211 ----------------------------------------------------------------------------
213 procedure Circle(Radius
: in Natural;
218 ----------------------------------------------------------------------------
221 -- But : Dessine un rectangle dans la fenetre graphique dont le coin --
222 -- superieur gauche est a la position courante. --
224 -- Entrees : - width : Longueur du rectangle --
225 -- - height : Largeur du rectangle --
226 -- - filled : Indique si il est plein ou si il n'y a que le --
231 ----------------------------------------------------------------------------
233 procedure Box(Width
: in Integer;
239 ----------------------------------------------------------------------------
244 -- Entrees : - Dessine un point dans la fenetre graphique a la position --
249 ----------------------------------------------------------------------------
255 ----------------------------------------------------------------------------
258 -- But : Indique la couleur du point dans la fenetre graphique a la --
259 -- position courante. --
262 -- Sorties : - la couleur du pixel --
265 ----------------------------------------------------------------------------
267 function Get_Pixel
return tColor
;