CD/Src/Spider - Graphic Library/Lib/Spider.ads

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --  Nom du fichier    : Spider.ads                                          --
   4 --                                                                          --
   5 --  Auteur(s)         : Livio Righetti                                      --
   6 --                                                                          --
   7 --  Date de creation  : 26-MARS-97                                          --
   8 --                                                                          --
   9 --  But               : Mettre a disposition des fonctions graphiques       --
  10 --                      minimales.                                          --
  11 --                                                                          --
  12 --  Date de modif.    : 18-SEPT-97 (G.corbaz)                               --
  13 --  Raison            : Utilisation du paquetage Adagraph                   --
  14 --                                                                          --
  15 --  Date de modif.    : 7-AVRIL-99 (P.Girardet)                             --
  16 --  Raison            : Pour creer une librairie                            --
  17 --                                                                          --
  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.      --
  21 --                                                                          --
  22 --  Modules appeles   :                                                     --
  23 --  Mat. particulier  : Graphmin.dll                                        --
  24 --                                                                          --
  25 --  Compilateur       :                                                     --
  26 --                                                                          --
  27 ------------------------------------------------------------------------------
  28
  29
  30
  31 package Spider is
  32
  33
  34
  35   ----------------------------------------------------------------------------
  36   -- Nom     : getMaxX                                                      --
  37   --                                                                        --
  38   -- But     : Retourne la taille maximale de l'ecran graphique en X.       --
  39   --                                                                        --
  40   -- Entrees : -                                                            --
  41   -- Sorties : - La taille maximale de l'ecran graphique en X.              --
  42   --                                                                        --
  43   -- Remarque:                                                              --
  44   ----------------------------------------------------------------------------
  45
  46   function Get_Max_X return Natural;
  47
  48
  49
  50   ----------------------------------------------------------------------------
  51   -- Nom     : getMaxY                                                      --
  52   --                                                                        --
  53   -- But     : Retourne la taille maximale de l'ecran graphique en Y.       --
  54   --                                                                        --
  55   -- Entrees : -                                                            --
  56   -- Sorties : - La taille maximale de l'ecran graphique en Y.              --
  57   --                                                                        --
  58   -- Remarque:                                                              --
  59   ----------------------------------------------------------------------------
  60
  61   function Get_Max_Y return Natural;
  62
  63
  64
  65   ----------------------------------------------------------------------------
  66   -- Nom     : moveTo                                                       --
  67   --                                                                        --
  68   -- But     : Placer le curseur a une position (absolue) de l'ecran.       --
  69   --                                                                        --
  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.  --
  72   -- Sorties : -                                                            --
  73   --                                                                        --
  74   -- Remarque:                                                              --
  75   ----------------------------------------------------------------------------
  76
  77   procedure Move_To(X : in Natural;
  78                     Y : in Natural);
  79
  80
  81
  82   ----------------------------------------------------------------------------
  83   -- Nom     : move                                                         --
  84   --                                                                        --
  85   -- But     : Placer le curseur a une position en specifiant le            --
  86   --           deplacement.                                                 --
  87   --                                                                        --
  88   -- Entrees : - DX : deplacement reltatif en X dans l'ecran.               --
  89   --           - DY : deplacement reltatif en Y dans l'ecran.               --
  90   -- Sorties : -                                                            --
  91   --                                                                        --
  92   -- Remarque:                                                              --
  93   ----------------------------------------------------------------------------
  94
  95   procedure Move(DX : in Integer;
  96                  DY : in Integer);
  97
  98
  99
 100   ----------------------------------------------------------------------------
 101   -- Nom     : lineTo                                                       --
 102   --                                                                        --
 103   -- But     : Dessiner une ligne du point(X1,Y1) au point (X2,Y2).         --
 104   --                                                                        --
 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.--
 109   -- Sorties : -                                                            --
 110   --                                                                        --
 111   -- Remarque:                                                              --
 112   ----------------------------------------------------------------------------
 113
 114   procedure Line_To(X1 : in Natural;
 115                     Y1 : in Natural;
 116                     X2 : in Natural;
 117                     Y2 : in Natural);
 118
 119
 120
 121   ----------------------------------------------------------------------------
 122   -- Nom     : line                                                         --
 123   --                                                                        --
 124   -- But     : Dessiner une ligne de la position courante du curseur au     --
 125   --           point specifie en connaissant le deplacement DX,DY.          --
 126   --                                                                        --
 127   -- Entrees : - DX : deplacement relatif en X dans l'ecran.                --
 128   --           - DY : deplacement relatif en Y dans l'ecran.                --
 129   -- Sorties : -                                                            --
 130   --                                                                        --
 131   -- Remarque:                                                              --
 132   ----------------------------------------------------------------------------
 133
 134   procedure Line(DX : in Integer;
 135                  DY : in Integer);
 136
 137
 138
 139   ----------------------------------------------------------------------------
 140   -- Nom     : clearWindow                                                  --
 141   --                                                                        --
 142   -- But     : Efface l'ecran graphique.                                    --
 143   --                                                                        --
 144   -- Entrees : -                                                            --
 145   -- Sorties : -                                                            --
 146   --                                                                        --
 147   -- Remarque:                                                              --
 148   ----------------------------------------------------------------------------
 149
 150   procedure Clear_Window;
 151
 152
 153   ----------------------------------------------------------------------------
 154   -- Nom     : initWindow                                                   --
 155   --                                                                        --
 156   -- But     : Ouvre la fenetre graphique de l'application.                 --
 157   --                                                                        --
 158   -- Entrees : - Le titre de la fenetre (apparait dans la barre de titre)   --
 159   -- Sorties : -                                                            --
 160   --                                                                        --
 161   -- Remarque:                                                              --
 162   ----------------------------------------------------------------------------
 163
 164   procedure Init_Window(Title : in String);
 165
 166
 167
 168
 169   ----------------------------------------------------------------------------
 170   -- Nom     : closeWindow                                                  --
 171   --                                                                        --
 172   -- But     : ferme la fenetre graphique.                                  --
 173   --                                                                        --
 174   -- Entrees : -                                                            --
 175   -- Sorties : -                                                            --
 176   --                                                                        --
 177   -- Remarque:                                                              --
 178   ----------------------------------------------------------------------------
 179
 180   procedure Close_Window;
 181
 182
 183
 184   Fenetre_Non_Init  : exception;
 185   Fenetre_Deja_Init : exception;
 186   Pixel_Invalid     : exception;
 187   Erreur_Inconnue   : exception;
 188
 189
 190
 191 private
 192
 193   procedure Traiter_Erreur(Valeur : in Natural);
 194
 195 end Spider;