Src/Power_Tools.ads

   1 ------------------------------------------------------------------------------------------------
   2 -- Nom     : Power_Tools / fait partie du programme Power Fractal                             --
   3 --                                                                                            --
   4 -- Auteurs : Gregory Burri & Adrien Crivelli                                                  --
   5 ------------------------------------------------------------------------------------------------
   6 -- But     : Outils de hauts niveau pour le tracage, le recadrage et le centrage              --
   7 --           sur la fractal a l'Ecran.                                                        --
   8 ------------------------------------------------------------------------------------------------
   9
  10 with Power_Types;
  11 use  Power_Types;
  12
  13 package  Power_Tools is
  14
  15    ------------------------------------------------------------------------------------------------
  16    -- Nom     : Dessiner_Fractal                                                                 --
  17    -- But     : Dessiner la fracal a l'ecran                                                     --
  18    --                                                                                            --
  19    -- Parametres ----------------------------------------------------------------------------------
  20    --  In     : * La fractal a dessiner                                                          --
  21    --                                                                                            --
  22    ------------------------------------------------------------------------------------------------
  23    procedure Dessiner_Fractal (Fractal : in Cara_Fractal; X, Y : Natural := 0;
  24                                Largeur_Zone : Natural := Largeur_Ecran;
  25                                Hauteur_Zone : Natural := Hauteur_Ecran);
  26
  27    ------------------------------------------------------------------------------------------------
  28    -- Nom     : Rafraichir_couleur                                                               --
  29    -- But     : Mets a jour les couleur et dessinne la fractal                                   --
  30    --                                                                                            --
  31    -- Parametres ----------------------------------------------------------------------------------
  32    --  In     : * La fractal a dessiner                                                          --
  33    --                                                                                            --
  34    ------------------------------------------------------------------------------------------------
  35    procedure Rafraichir_Couleur (Fractal : in Cara_Fractal);
  36
  37    ------------------------------------------------------------------------------------------------
  38    -- Nom     : Zoom_Souris                                                                      --
  39    -- But     : Tracer un cadre a la souris pour zoomer                                          --
  40    --           et clic-droit pour dezoomer (recentre au coordonnees de la sourris)              --                                    --
  41    --                                                                                            --
  42    -- Parametres ----------------------------------------------------------------------------------
  43    --  In     : * la fractal sur laquelle zoomer                                                 --
  44    --                                                                                            --
  45    ------------------------------------------------------------------------------------------------
  46    procedure Zoom_Souris(Fractal : in out Cara_Fractal);
  47
  48
  49    ------------------------------------------------------------------------------------------------
  50    -- Nom     : Centrer                                                                          --
  51    -- But     : Recentrer le point choisi a l'aide de la souris                                  --
  52    --                                                                                            --
  53    -- Parametres ----------------------------------------------------------------------------------
  54    --  In out : * La fractal                                                                     --
  55    --                                                                                            --
  56    ------------------------------------------------------------------------------------------------
  57    procedure Centrer (Fractal : in out Cara_Fractal);
  58
  59    ------------------------------------------------------------------------------------------------
  60    -- Nom     : Choix_Mosaic                                                                     --
  61    -- But     : Choisir a l'aide la souris la fractal courante                                   --
  62    --                                                                                            --
  63    -- Parametres ----------------------------------------------------------------------------------
  64    --  In     : * La liste des farctals a dessiner en vue du chois de l'utilisateur              --
  65    --                                                                                            --
  66    --  return : * Le numeros de la fractal                                                       --
  67    --                                                                                            --
  68    ------------------------------------------------------------------------------------------------
  69    function Choix_Mosaic (Liste_Fractals : T_Liste_Fractals) return Natural;
  70
  71 end Power_Tools;