Src/Power_Colors.ads

   1 ------------------------------------------------------------------------------------------------
   2 -- Nom     : Power_Colors / fait partie du programme Power Fractal                            --
   3 --                                                                                            --
   4 -- Auteurs : Gregory Burri & Adrien Crivelli                                                  --
   5 ------------------------------------------------------------------------------------------------
   6 -- But     : Outils servant a la gestion des couleurs et des degradés                         --
   7 ------------------------------------------------------------------------------------------------
   8
   9 --Enfant de spider Pour gerer la couleur et le dessin
  10 with Spider.Draw;
  11 with Power_Types;
  12
  13
  14 package  Power_Colors is
  15
  16    ------------------------------------------------------------------------------------------------
  17    -- Nom     : Inverse_Couleur                                                                  --
  18    -- But     : Inverser une couleur RGB                                                         --
  19    --                                                                                            --
  20    -- Parametres ----------------------------------------------------------------------------------
  21    --  In-out : * La couleur                                                                     --
  22    ------------------------------------------------------------------------------------------------
  23    procedure Inverse_Couleur (Couleur : in out Spider.Draw.Tcolor);
  24
  25    ------------------------------------------------------------------------------------------------
  26    -- Nom      : Creer_Degrade                                                                   --
  27    -- But      : Creer un tableau de degrade de couleur en fonction de couleur determinee        --
  28    --                                                                                            --
  29    -- Parametres ----------------------------------------------------------------------------------
  30    --  In     : * La fractal                                                                     --
  31    --           * La longueur du degrade                                                         --
  32    --  Out    : * Le degrade de couleur                                                          --
  33    ------------------------------------------------------------------------------------------------
  34 --   procedure Creer_Degrade (Fractal : in Power_Types.Cara_Fractal;
  35 --                            Degrade : out Power_Types.T_Tab_Couleur; Longueur : in Integer);
  36
  37    ------------------------------------------------------------------------------------------------
  38    -- Nom      : Affiche_Degrade                                                                 --
  39    -- But      : Affiche le degrade sur la longueur demandé sur 5 pixels de hauteur              --
  40    --                                                                                            --
  41    -- Parametres ----------------------------------------------------------------------------------
  42    --  In     : * La fractal                                                                     --
  43    ------------------------------------------------------------------------------------------------
  44    procedure Affiche_Degrade (Fractal : in Power_Types.Cara_Fractal);
  45
  46    ------------------------------------------------------------------------------------------------
  47    -- Nom      : Conversion_Couleur                                                              --
  48    -- But      : Convertit une matrice d'iteration en une matrice de couleur                     --
  49    --                                                                                            --
  50    -- Parametres ----------------------------------------------------------------------------------
  51    --  In     : * La matrice d'iteration                                                         --
  52    --         : * Le degrade de couleur                                                          --
  53    --  return : Une matrice de couleur                                                           --
  54    ------------------------------------------------------------------------------------------------
  55    function Conversion_Couleur (Matrice : in Power_Types.T_Matrice_Iteration;
  56                                 fractal : in power_types.Cara_fractal)
  57                                 return Power_Types.T_Matrice_Tampon;
  58
  59 end Power_Colors;