CD/Src/Spider - Graphic Library/Ads/Draw.ads

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --  Nom du fichier    : Draw.ads                                            --
   4 --                                                                          --
   5 --  Auteur(s)         : SALAMIN Michel / Assistant HEV                      --
   6 --                      Ecole d'ingenieurs du canton de Vaud (EIVD)         --
   7 --                                                                          --
   8 --  Date de creation  : 20 avril 2000                                       --
   9 --                                                                          --
  10 --  But               : Mettre a disposition les fonctions graphiques       --
  11 --                      permettant de:                                      --
  12 --                      - gerer la couleur sous Spider                      --
  13 --                      - dessiner des cercles                              --
  14 --                      - dessiner des rectangles                           --
  15 --                      - changer la couleur d'un pixel                     --
  16 --                                                                          --
  17 --  Date de modif.    :                                                     --
  18 --  Raison            :                                                     --
  19 --                                                                          --
  20 --  Modules appeles   :                                                     --
  21 --  Mat. particulier  : Graphmin.dll                                        --
  22 --                                                                          --
  23 --  Compilateur       :                                                     --
  24 --                                                                          --
  25 ------------------------------------------------------------------------------
  26
  27
  28
  29 package Spider.Draw is
  30
  31
  32
  33   -- Type de remplissage pour les formes.
  34   type tFill is (fill, noFill);
  35
  36   -- Type pour les couleur.
  37   type tColor is record
  38                     R : Integer;
  39                     G : Integer;
  40                     B : Integer;
  41                   end record;
  42
  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);
  59
  60
  61   ----------------------------------------------------------------------------
  62   -- Nom     : getColorPen                                                  --
  63   --                                                                        --
  64   -- But     : Indique la couleur utilisee pour les dessins.                --
  65   --                                                                        --
  66   -- Entrees : -                                                            --
  67   -- Sorties : - la couleur utilisee.                                       --
  68   --                                                                        --
  69   -- Remarque:                                                              --
  70   ----------------------------------------------------------------------------
  71
  72   function Get_Color_Pen return tColor;
  73
  74
  75
  76   ----------------------------------------------------------------------------
  77   -- Nom     : getColorBackground                                           --
  78   --                                                                        --
  79   -- But     : Indique la couleur de l'arriere plan.                        --
  80   --                                                                        --
  81   -- Entrees : -                                                            --
  82   -- Sorties : - la couleur de l'arriere plan.                              --
  83   --                                                                        --
  84   -- Remarque:                                                              --
  85   ----------------------------------------------------------------------------
  86
  87   function Get_Color_Background return tColor;
  88
  89
  90
  91   ----------------------------------------------------------------------------
  92   -- Nom     : getColorText                                                 --
  93   --                                                                        --
  94   -- But     : Indique la couleur du texte.                                 --
  95   --                                                                        --
  96   -- Entrees : -                                                            --
  97   -- Sorties : - la couleur du texte.                                       --
  98   --                                                                        --
  99   -- Remarque:                                                              --
 100   ----------------------------------------------------------------------------
 101
 102   function Get_Color_Text return tColor;
 103
 104
 105
 106   ----------------------------------------------------------------------------
 107   -- Nom     : getWidthChar                                                 --
 108   --                                                                        --
 109   -- But     : Indique la largeur max en pixel des caracteres de la font    --
 110   --           utilisee.                                                    --
 111   --                                                                        --
 112   -- Entrees : -                                                            --
 113   -- Sorties : - la largeur max                                             --
 114   --                                                                        --
 115   -- Remarque:                                                              --
 116   ----------------------------------------------------------------------------
 117
 118   function Get_Width_Char return Natural;
 119
 120
 121
 122   ----------------------------------------------------------------------------
 123   -- Nom     : getHeightChar                                                --
 124   --                                                                        --
 125   -- But     : Indique la hauteur max en pixel des caracteres de la font    --
 126   --           utilisee.                                                    --
 127   --                                                                        --
 128   -- Entrees : -                                                            --
 129   -- Sorties : - la hauteur max                                             --
 130   --                                                                        --
 131   -- Remarque:                                                              --
 132   ----------------------------------------------------------------------------
 133
 134   function Get_Height_Char return Natural;
 135
 136
 137
 138   ----------------------------------------------------------------------------
 139   -- Nom     : setColorPen                                                  --
 140   --                                                                        --
 141   -- But     : Defini la couleur pour les dessins.                          --
 142   --                                                                        --
 143   -- Entrees : - color: la couleur a appliquer                              --
 144   -- Sorties : -                                                            --
 145   --                                                                        --
 146   -- Remarque:                                                              --
 147   ----------------------------------------------------------------------------
 148
 149   procedure Set_Color_Pen(Color : in tColor);
 150
 151
 152
 153   ----------------------------------------------------------------------------
 154   -- Nom     : setColorBackground                                           --
 155   --                                                                        --
 156   -- But     : Defini la couleur de l'arriere plan.                         --
 157   --                                                                        --
 158   -- Entrees : - color: la couleur a appliquer                              --
 159   -- Sorties : -                                                            --
 160   --                                                                        --
 161   -- Remarque:                                                              --
 162   ----------------------------------------------------------------------------
 163
 164   procedure Set_Color_Background(Color : in tColor);
 165
 166
 167
 168   ----------------------------------------------------------------------------
 169   -- Nom     : setColorText                                                 --
 170   --                                                                        --
 171   -- But     : Defini la couleur du texte.                                  --
 172   --                                                                        --
 173   -- Entrees : - color: la couleur a appliquer                              --
 174   -- Sorties : -                                                            --
 175   --                                                                        --
 176   -- Remarque:                                                              --
 177   ----------------------------------------------------------------------------
 178
 179   procedure Set_Color_Text(Color : in tColor);
 180
 181
 182
 183   ----------------------------------------------------------------------------
 184   -- Nom     : displayText                                                  --
 185   --                                                                        --
 186   -- But     : Affiche un texte dans la fenetre graphique a partir de la    --
 187   --           position courante.                                           --
 188   --                                                                        --
 189   -- Entrees : - text: chaine de caracteres a afficher                      --
 190   -- Sorties : -                                                            --
 191   --                                                                        --
 192   -- Remarque:                                                              --
 193   ----------------------------------------------------------------------------
 194
 195   procedure Display_Text(Text : in String);
 196
 197
 198
 199   ----------------------------------------------------------------------------
 200   -- Nom     : circle                                                       --
 201   --                                                                        --
 202   -- But     : Dessine un cercle dans la fenetre graphique dont le centre   --
 203   --           est a la position courante.                                  --
 204   --                                                                        --
 205   -- Entrees : - radius : Rayon du cercle                                   --
 206   --           - filled : Indique si il est plein ou si il n'y a que le     --
 207   --                      contour                                           --
 208   -- Sorties : -                                                            --
 209   --                                                                        --
 210   -- Remarque:                                                              --
 211   ----------------------------------------------------------------------------
 212
 213   procedure Circle(Radius : in Natural;
 214                    Filled : in tFill);
 215
 216
 217
 218   ----------------------------------------------------------------------------
 219   -- Nom     : box                                                          --
 220   --                                                                        --
 221   -- But     : Dessine un rectangle dans la fenetre graphique dont le coin  --
 222   --           superieur gauche est a la position courante.                 --
 223   --                                                                        --
 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     --
 227   --                      contour                                           --
 228   -- Sorties : -                                                            --
 229   --                                                                        --
 230   -- Remarque:                                                              --
 231   ----------------------------------------------------------------------------
 232
 233   procedure Box(Width  : in Integer;
 234                 Height : in Integer;
 235                 Filled : in tFill);
 236
 237
 238
 239   ----------------------------------------------------------------------------
 240   -- Nom     : putPixel                                                     --
 241   --                                                                        --
 242   -- But     :                                                              --
 243   --                                                                        --
 244   -- Entrees : - Dessine un point dans la fenetre graphique a la position   --
 245   --             courante.                                                  --
 246   -- Sorties : -                                                            --
 247   --                                                                        --
 248   -- Remarque:                                                              --
 249   ----------------------------------------------------------------------------
 250
 251   procedure Put_Pixel;
 252
 253
 254
 255   ----------------------------------------------------------------------------
 256   -- Nom     : getPixel                                                     --
 257   --                                                                        --
 258   -- But     : Indique la couleur du point dans la fenetre graphique a la   --
 259   --           position courante.                                           --
 260   --                                                                        --
 261   -- Entrees : -                                                            --
 262   -- Sorties : - la couleur du pixel                                        --
 263   --                                                                        --
 264   -- Remarque:                                                              --
 265   ----------------------------------------------------------------------------
 266
 267   function Get_Pixel return tColor;
 268
 269
 270
 271 end Spider.Draw;