------------------------------------------------------------------------------------------------ -- Nom : Power_Colors / fait partie du programme Power Fractal -- -- -- -- Auteurs : Gregory Burri & Adrien Crivelli -- ------------------------------------------------------------------------------------------------ -- But : Outils servant a la gestion des couleurs et des degradés -- ------------------------------------------------------------------------------------------------ --Enfant de spider Pour gerer la couleur et le dessin with Spider.Draw; with Power_Types; package Power_Colors is ------------------------------------------------------------------------------------------------ -- Nom : Inverse_Couleur -- -- But : Inverser une couleur RGB -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In-out : * La couleur -- ------------------------------------------------------------------------------------------------ procedure Inverse_Couleur (Couleur : in out Spider.Draw.Tcolor); ------------------------------------------------------------------------------------------------ -- Nom : Creer_Degrade -- -- But : Creer un tableau de degrade de couleur en fonction de couleur determinee -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : * La fractal -- -- * La longueur du degrade -- -- Out : * Le degrade de couleur -- ------------------------------------------------------------------------------------------------ -- procedure Creer_Degrade (Fractal : in Power_Types.Cara_Fractal; -- Degrade : out Power_Types.T_Tab_Couleur; Longueur : in Integer); ------------------------------------------------------------------------------------------------ -- Nom : Affiche_Degrade -- -- But : Affiche le degrade sur la longueur demandé sur 5 pixels de hauteur -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : * La fractal -- ------------------------------------------------------------------------------------------------ procedure Affiche_Degrade (Fractal : in Power_Types.Cara_Fractal); ------------------------------------------------------------------------------------------------ -- Nom : Conversion_Couleur -- -- But : Convertit une matrice d'iteration en une matrice de couleur -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : * La matrice d'iteration -- -- : * Le degrade de couleur -- -- return : Une matrice de couleur -- ------------------------------------------------------------------------------------------------ function Conversion_Couleur (Matrice : in Power_Types.T_Matrice_Iteration; fractal : in power_types.Cara_fractal) return Power_Types.T_Matrice_Tampon; end Power_Colors;