DEL remove useless code
[powerfractal.git] / Src / Power_Tools.ads
1 ------------------------------------------------------------------------------------------------
2 -- Nom : Power_Tools / fait partie du programme Power Fractal --
3 -- --
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 ------------------------------------------------------------------------------------------------
9
10 with Power_Types;
11 use Power_Types;
12
13 package Power_Tools is
14
15 ------------------------------------------------------------------------------------------------
16 -- Nom : Dessiner_Fractal --
17 -- But : Dessiner la fracal a l'ecran --
18 -- --
19 -- Parametres ----------------------------------------------------------------------------------
20 -- In : * La fractal a dessiner --
21 -- --
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);
26
27 ------------------------------------------------------------------------------------------------
28 -- Nom : Rafraichir_couleur --
29 -- But : Mets a jour les couleur et dessinne la fractal --
30 -- --
31 -- Parametres ----------------------------------------------------------------------------------
32 -- In : * La fractal a dessiner --
33 -- --
34 ------------------------------------------------------------------------------------------------
35 procedure Rafraichir_Couleur (Fractal : in Cara_Fractal);
36
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) -- --
41 -- --
42 -- Parametres ----------------------------------------------------------------------------------
43 -- In : * la fractal sur laquelle zoomer --
44 -- --
45 ------------------------------------------------------------------------------------------------
46 procedure Zoom_Souris(Fractal : in out Cara_Fractal);
47
48
49 ------------------------------------------------------------------------------------------------
50 -- Nom : Centrer --
51 -- But : Recentrer le point choisi a l'aide de la souris --
52 -- --
53 -- Parametres ----------------------------------------------------------------------------------
54 -- In out : * La fractal --
55 -- --
56 ------------------------------------------------------------------------------------------------
57 procedure Centrer (Fractal : in out Cara_Fractal);
58
59 ------------------------------------------------------------------------------------------------
60 -- Nom : Choix_Mosaic --
61 -- But : Choisir a l'aide la souris la fractal courante --
62 -- --
63 -- Parametres ----------------------------------------------------------------------------------
64 -- In : * La liste des farctals a dessiner en vue du chois de l'utilisateur --
65 -- --
66 -- return : * Le numeros de la fractal --
67 -- --
68 ------------------------------------------------------------------------------------------------
69 function Choix_Mosaic (Liste_Fractals : T_Liste_Fractals) return Natural;
70
71 end Power_Tools;