------------------------------------------------------------------------------ -- -- -- Nom du fichier : Draw.ads -- -- -- -- Auteur(s) : SALAMIN Michel / Assistant HEV -- -- Ecole d'ingenieurs du canton de Vaud (EIVD) -- -- -- -- Date de creation : 20 avril 2000 -- -- -- -- But : Mettre a disposition les fonctions graphiques -- -- permettant de: -- -- - gerer la couleur sous Spider -- -- - dessiner des cercles -- -- - dessiner des rectangles -- -- - changer la couleur d'un pixel -- -- -- -- Date de modif. : -- -- Raison : -- -- -- -- Modules appeles : -- -- Mat. particulier : Graphmin.dll -- -- -- -- Compilateur : -- -- -- ------------------------------------------------------------------------------ package Spider.Draw is -- Type de remplissage pour les formes. type tFill is (fill, noFill); -- Type pour les couleur. type tColor is record R : Integer; G : Integer; B : Integer; end record; black : constant tColor := ( 0, 0, 0); blue : constant tColor := ( 0, 0,255); green : constant tColor := ( 0,255, 0); cyan : constant tColor := ( 0,255,255); red : constant tColor := (255, 0, 0); magenta : constant tColor := (255, 0,255); brown : constant tColor := (128, 64, 0); lightGray : constant tColor := (192,192,192); darkGray : constant tColor := (128,128,128); lightBlue : constant tColor := (128,128,255); lightGreen : constant tColor := (128,255,128); lightCyan : constant tColor := (128,255,255); lightRed : constant tColor := (255,128,128); lightMagenta : constant tColor := (255,128,255); yellow : constant tColor := (255,255, 0); white : constant tColor := (255,255,255); ---------------------------------------------------------------------------- -- Nom : getColorPen -- -- -- -- But : Indique la couleur utilisee pour les dessins. -- -- -- -- Entrees : - -- -- Sorties : - la couleur utilisee. -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- function Get_Color_Pen return tColor; ---------------------------------------------------------------------------- -- Nom : getColorBackground -- -- -- -- But : Indique la couleur de l'arriere plan. -- -- -- -- Entrees : - -- -- Sorties : - la couleur de l'arriere plan. -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- function Get_Color_Background return tColor; ---------------------------------------------------------------------------- -- Nom : getColorText -- -- -- -- But : Indique la couleur du texte. -- -- -- -- Entrees : - -- -- Sorties : - la couleur du texte. -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- function Get_Color_Text return tColor; ---------------------------------------------------------------------------- -- Nom : getWidthChar -- -- -- -- But : Indique la largeur max en pixel des caracteres de la font -- -- utilisee. -- -- -- -- Entrees : - -- -- Sorties : - la largeur max -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- function Get_Width_Char return Natural; ---------------------------------------------------------------------------- -- Nom : getHeightChar -- -- -- -- But : Indique la hauteur max en pixel des caracteres de la font -- -- utilisee. -- -- -- -- Entrees : - -- -- Sorties : - la hauteur max -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- function Get_Height_Char return Natural; ---------------------------------------------------------------------------- -- Nom : setColorPen -- -- -- -- But : Defini la couleur pour les dessins. -- -- -- -- Entrees : - color: la couleur a appliquer -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Set_Color_Pen(Color : in tColor); ---------------------------------------------------------------------------- -- Nom : setColorBackground -- -- -- -- But : Defini la couleur de l'arriere plan. -- -- -- -- Entrees : - color: la couleur a appliquer -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Set_Color_Background(Color : in tColor); ---------------------------------------------------------------------------- -- Nom : setColorText -- -- -- -- But : Defini la couleur du texte. -- -- -- -- Entrees : - color: la couleur a appliquer -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Set_Color_Text(Color : in tColor); ---------------------------------------------------------------------------- -- Nom : displayText -- -- -- -- But : Affiche un texte dans la fenetre graphique a partir de la -- -- position courante. -- -- -- -- Entrees : - text: chaine de caracteres a afficher -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Display_Text(Text : in String); ---------------------------------------------------------------------------- -- Nom : circle -- -- -- -- But : Dessine un cercle dans la fenetre graphique dont le centre -- -- est a la position courante. -- -- -- -- Entrees : - radius : Rayon du cercle -- -- - filled : Indique si il est plein ou si il n'y a que le -- -- contour -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Circle(Radius : in Natural; Filled : in tFill); ---------------------------------------------------------------------------- -- Nom : box -- -- -- -- But : Dessine un rectangle dans la fenetre graphique dont le coin -- -- superieur gauche est a la position courante. -- -- -- -- Entrees : - width : Longueur du rectangle -- -- - height : Largeur du rectangle -- -- - filled : Indique si il est plein ou si il n'y a que le -- -- contour -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Box(Width : in Integer; Height : in Integer; Filled : in tFill); ---------------------------------------------------------------------------- -- Nom : putPixel -- -- -- -- But : -- -- -- -- Entrees : - Dessine un point dans la fenetre graphique a la position -- -- courante. -- -- Sorties : - -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- procedure Put_Pixel; ---------------------------------------------------------------------------- -- Nom : getPixel -- -- -- -- But : Indique la couleur du point dans la fenetre graphique a la -- -- position courante. -- -- -- -- Entrees : - -- -- Sorties : - la couleur du pixel -- -- -- -- Remarque: -- ---------------------------------------------------------------------------- function Get_Pixel return tColor; end Spider.Draw;