------------------------------------------------------------------------------------------------ -- Nom : Power_Tools / fait partie du programme Power Fractal -- -- -- -- Auteurs : Gregory Burri & Adrien Crivelli -- ------------------------------------------------------------------------------------------------ -- But : Outils de hauts niveau pour le tracage, le recadrage et le centrage -- -- sur la fractal a l'Ecran. -- ------------------------------------------------------------------------------------------------ with Power_Types; use Power_Types; package Power_Tools is ------------------------------------------------------------------------------------------------ -- Nom : Dessiner_Fractal -- -- But : Dessiner la fracal a l'ecran -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : * La fractal a dessiner -- -- -- ------------------------------------------------------------------------------------------------ procedure Dessiner_Fractal (Fractal : in Cara_Fractal; X, Y : Natural := 0; Largeur_Zone : Natural := Largeur_Ecran; Hauteur_Zone : Natural := Hauteur_Ecran); ------------------------------------------------------------------------------------------------ -- Nom : Rafraichir_couleur -- -- But : Mets a jour les couleur et dessinne la fractal -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : * La fractal a dessiner -- -- -- ------------------------------------------------------------------------------------------------ procedure Rafraichir_Couleur (Fractal : in Cara_Fractal); ------------------------------------------------------------------------------------------------ -- Nom : Zoom_Souris -- -- But : Tracer un cadre a la souris pour zoomer -- -- et clic-droit pour dezoomer (recentre au coordonnees de la sourris) -- -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : * la fractal sur laquelle zoomer -- -- -- ------------------------------------------------------------------------------------------------ procedure Zoom_Souris(Fractal : in out Cara_Fractal); ------------------------------------------------------------------------------------------------ -- Nom : Centrer -- -- But : Recentrer le point choisi a l'aide de la souris -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In out : * La fractal -- -- -- ------------------------------------------------------------------------------------------------ procedure Centrer (Fractal : in out Cara_Fractal); ------------------------------------------------------------------------------------------------ -- Nom : Choix_Mosaic -- -- But : Choisir a l'aide la souris la fractal courante -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : * La liste des farctals a dessiner en vue du chois de l'utilisateur -- -- -- -- return : * Le numeros de la fractal -- -- -- ------------------------------------------------------------------------------------------------ function Choix_Mosaic (Liste_Fractals : T_Liste_Fractals) return Natural; end Power_Tools;