CD/Src/Power_Draw.ads

   1 ------------------------------------------------------------------------------------------------
   2 -- Nom     : Power_Draw / fait partie du programme Power Fractal                              --
   3 --                                                                                            --
   4 -- Auteurs : Gregory Burri & Adrien Crivelli                                                  --
   5 ------------------------------------------------------------------------------------------------
   6 -- But     : Outils de bas niveau pour le dessin a l'ecran.                                   --
   7 --           Comme dessiner un carre, une partie du tampon etc..                              --
   8 ------------------------------------------------------------------------------------------------
   9
  10 with Spider.Draw;
  11
  12 package Power_Draw is
  13
  14    ------------------------------------------------------------------------------------------------
  15    -- Nom     : Boite                                                                            --
  16    -- But     : dessiner un rectangle vide a l'ecran                                             --
  17    --                                                                                            --
  18    -- Parametres ----------------------------------------------------------------------------------
  19    --  In     : * les coordonnees du point superieur gauche : X1, Y1                             --
  20    --           * les coordonnees du point inferieur droit  : X2, Y2                             --
  21    --                                                                                            --
  22    ------------------------------------------------------------------------------------------------
  23    procedure Boite (X1, Y1, X2, Y2 : Natural; Couleur : Spider.Draw.Tcolor);
  24
  25
  26    ------------------------------------------------------------------------------------------------
  27    -- Nom     : Ligne_Matrice_Hori                                                               --
  28    -- But     : rafraichire une ligne horizontale de l'ecran depuis le tampon                    --
  29    --                                                                                            --
  30    -- Parametres ----------------------------------------------------------------------------------
  31    --  In     : * La coordonnee de depart             : X1                                       --
  32    --           * La coordonnee de la fin             : X2                                       --
  33    --           * La coordonnee de positionement en Y : Y                                        --
  34    --                                                                                            --
  35    ------------------------------------------------------------------------------------------------
  36    procedure Ligne_Matrice_Hori (X1, X2, Y : Natural);
  37
  38
  39    ------------------------------------------------------------------------------------------------
  40    -- Nom     : Ligne_Matrice_Vert                                                               --
  41    -- But     : rafraichire une ligne verticale de l'ecran depuis le tampon                      --
  42    --                                                                                            --
  43    -- Parametres ----------------------------------------------------------------------------------
  44    --  In     : * La coordonnee de depart             : Y1                                       --
  45    --           * La coordonnee de la fin             : Y2                                       --
  46    --           * La coordonnee de positionement en X : X                                        --
  47    --                                                                                            --
  48    ------------------------------------------------------------------------------------------------
  49    procedure Ligne_Matrice_Vert (Y1, Y2, X : Natural);
  50
  51    ------------------------------------------------------------------------------------------------
  52    -- Nom     : Dessin_Croix                                                                     --
  53    -- But     : dessiner une petite croix sur l'ecran                                            --
  54    --                                                                                            --
  55    -- Parametres ----------------------------------------------------------------------------------
  56    --  In     : Les coordonnees de la croix : X et Y                                             --
  57    --                                                                                            --
  58    ------------------------------------------------------------------------------------------------
  59    procedure Dessin_Croix (X, Y : Natural);
  60
  61    ------------------------------------------------------------------------------------------------
  62    -- Nom     : Efface_Croix                                                                     --
  63    -- But     : Effacer la croix qui a au paravant ete dessine en X, Y                           --
  64    --                                                                                            --
  65    -- Parametres ----------------------------------------------------------------------------------
  66    --  In     : * Les coordonnees de la croix a effacer  : X, Y                                  --
  67    --                                                                                            --
  68    ------------------------------------------------------------------------------------------------
  69    procedure Efface_Croix (X, Y : Natural);
  70
  71 end Power_Draw;