1 ------------------------------------------------------------------------------------------------
2 -- Nom : Power_Tools / fait partie du programme Power Fractal --
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 ------------------------------------------------------------------------------------------------
13 package Power_Tools
is
15 ------------------------------------------------------------------------------------------------
16 -- Nom : Dessiner_Fractal --
17 -- But : Dessiner la fracal a l'ecran --
19 -- Parametres ----------------------------------------------------------------------------------
20 -- In : * La fractal a dessiner --
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
);
27 ------------------------------------------------------------------------------------------------
28 -- Nom : Rafraichir_couleur --
29 -- But : Mets a jour les couleur et dessinne la fractal --
31 -- Parametres ----------------------------------------------------------------------------------
32 -- In : * La fractal a dessiner --
34 ------------------------------------------------------------------------------------------------
35 procedure Rafraichir_Couleur (Fractal
: in Cara_Fractal
);
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) -- --
42 -- Parametres ----------------------------------------------------------------------------------
43 -- In : * la fractal sur laquelle zoomer --
45 ------------------------------------------------------------------------------------------------
46 procedure Zoom_Souris(Fractal
: in out Cara_Fractal
);
49 ------------------------------------------------------------------------------------------------
51 -- But : Recentrer le point choisi a l'aide de la souris --
53 -- Parametres ----------------------------------------------------------------------------------
54 -- In out : * La fractal --
56 ------------------------------------------------------------------------------------------------
57 procedure Centrer (Fractal
: in out Cara_Fractal
);
59 ------------------------------------------------------------------------------------------------
60 -- Nom : Choix_Mosaic --
61 -- But : Choisir a l'aide la souris la fractal courante --
63 -- Parametres ----------------------------------------------------------------------------------
64 -- In : * La liste des farctals a dessiner en vue du chois de l'utilisateur --
66 -- return : * Le numeros de la fractal --
68 ------------------------------------------------------------------------------------------------
69 function Choix_Mosaic (Liste_Fractals
: T_Liste_Fractals
) return Natural;