------------------------------------------------------------------------------------------------ -- Nom : Power_Calculator / fait partie du programme Power Fractal -- -- -- -- Auteurs : Gregory Burri & Adrien Crivelli -- ------------------------------------------------------------------------------------------------ -- But : Outils de calculs des fractals ainsi que de l'antialiasing -- ------------------------------------------------------------------------------------------------ with Power_Types; use Power_Types; --Pour les types, les constantes et les variables globales package Power_Calculator is ------------------------------------------------------------------------------------------------ -- Nom : Calcul_Antialiasing -- -- But : Contracter une matrice en une autre 4 fois plus petite -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : La matrice a antialiasinger -- -- -- -- return : La matrice traitee -- ------------------------------------------------------------------------------------------------ function Calcul_Antialiasing(Matrice_Antialiasing : T_Matrice_Tampon) return T_Matrice_Tampon; ------------------------------------------------------------------------------------------------ -- Nom : Change_Angle -- -- But : Changer l'angle d'un nombre complexe par rapport au centre de l'ecran -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : * La fractal, -- -- -- -- In out : * Partie reel du nb complexe : A -- -- * Partie imaginaire du nb complexe : B -- ------------------------------------------------------------------------------------------------ procedure Change_Angle (A, B : in out Long_Float; Fractal : Cara_Fractal); ------------------------------------------------------------------------------------------------ -- Nom : Mandel_Gen -- -- But : Genere une matrice d'iteration selon l' ensemble de Mandelbrot -- -- Z(n+1) = Z(n)^2 + Z(o) -- -- Parametres ---------------------------------------------------------------------------------- -- In : * Largeur_zone et Hauteur_Zone : Dimension de la zone de calcul -- -- * Fractal : L'ensemble des caracteristiques de la fractal -- -- -- -- return : * Une matrice contenant la fractal sous forme de nombre d'iteration pour chaque -- -- point -- ------------------------------------------------------------------------------------------------ function Mandel_Gen (Largeur_Zone, Hauteur_Zone : Natural; Fractal : Cara_Fractal) return T_Matrice_Iteration; ------------------------------------------------------------------------------------------------ -- Nom : Julia_Gen -- -- But : Genere une matrice d'iteration selon l' ensemble de Julia -- -- Z(n+1) = Z(n)^2 + c 'c' etant une constante arbitraire -- -- Parametres ---------------------------------------------------------------------------------- -- In : * Largeur_zone et Hauteur_Zone : Dimension de la zone de calcul -- -- * Fractal : L'ensemble des caracteristiques de la fractal -- -- -- -- return : * Une matrice contenant la fractal sous forme de nombre d'iteration pour chaque -- -- point -- ------------------------------------------------------------------------------------------------ function Julia_Gen (Largeur_Zone, Hauteur_Zone : Natural; Fractal : Cara_Fractal) return T_Matrice_Iteration; end Power_Calculator;