DEL remove useless code
[powerfractal.git] / Src / Power_List.adb
1 ------------------------------------------------------------------------------------------------
2 -- Nom : Power_List / fait partie du programme Power Fractal --
3 -- --
4 -- Auteurs : Gregory Burri & Adrien Crivelli --
5 ------------------------------------------------------------------------------------------------
6 -- But : Outils pour creer et gerer des liste de fractals --
7 ------------------------------------------------------------------------------------------------
8
9 with Power_Types; use Power_Types;
10 with Ada.Unchecked_Deallocation;
11
12 package body Power_List is
13
14 ------------------------------------------------------------------------------------------------
15 -- Nom : Ajouter --
16 -- But : Ajouter une fractal a la suite de la liste --
17 -- Parametres ----------------------------------------------------------------------------------
18 -- In : * La liste de fractals --
19 -- * La Fractal A Ajouter --
20 ------------------------------------------------------------------------------------------------
21 procedure Ajouter (Liste_Fractals : in out T_Liste_Fractals; Fractal : Cara_Fractal) is
22
23 --Pour pouvoir parcourir la liste
24 Pointeur : T_Lien := Liste_Fractals.Tete;
25
26 begin --Ajouter
27
28 if Liste_Fractals.Tete = null then
29
30 Liste_Fractals.Tete := new T_Fractal'(Fractal, null);
31
32 else
33
34 while Pointeur.Suiv /= null loop
35 Pointeur := Pointeur.Suiv;
36 end loop;
37
38 Pointeur.Suiv := new T_Fractal'(Fractal, null);
39
40 end if;
41
42 Liste_Fractals.Nb_Fractals := Liste_Fractals.Nb_Fractals + 1;
43
44 end Ajouter;
45
46 ------------------------------------------------------------------------------------------------
47 -- Nom : Effacer --
48 -- But : Effacer une fractal de la liste --
49 -- Parametres ----------------------------------------------------------------------------------
50 -- In : * La liste de fractals --
51 -- * Le numeros de la fractal a effacer : Num --
52 ------------------------------------------------------------------------------------------------
53 procedure Effacer (Liste_Fractals : in out T_Liste_Fractals; Num : Natural) is
54
55 --Pour pouvoir parcourir la liste
56 Pointeur : T_Lien := Liste_Fractals.Tete;
57 Pointeur_Avant : T_Lien := Liste_Fractals.Tete;
58
59 procedure Liberer is new Ada.Unchecked_Deallocation ( T_Fractal , T_Lien);
60
61 begin --Effacer
62
63 --Si la liste ne comporte qu'un seul element alors propage une erreur
64 if Liste_Fractals.Nb_Fractals = 1 then
65 raise Liste_Une_Fractal;
66 end if;
67
68 --Si l'element a supprimer est le premier de la liste alors
69 if Num = 1 then
70 Liste_Fractals.Tete := Liste_Fractals.Tete.Suiv; --La tete pointe sur le deuxieme element
71 Liberer(Pointeur);
72 else
73
74 --Pointeur pointe sur le deuxieme element de la liste
75 Pointeur := Liste_Fractals.Tete.Suiv;
76
77 --Cherche l'element numero 'num'
78 for I in 3..Num loop
79
80 --Decale les pointeurs
81 Pointeur_Avant := Pointeur;
82 Pointeur := Pointeur.Suiv;
83 --
84
85 --Si pas trouve alors propage une erreur
86 if Pointeur = null then raise Fractal_Inexistante; end if;
87
88 end loop;
89
90 Pointeur_Avant.Suiv := Pointeur.Suiv; --Refais le lien en sautant l'element a supprimer
91 Liberer(Pointeur); --Efface de la memoire l'element a supprimer
92
93 end if;
94
95 --Un element a ete enleve :
96 Liste_Fractals.Nb_Fractals := Liste_Fractals.Nb_Fractals - 1;
97
98 end Effacer;
99
100
101 ------------------------------------------------------------------------------------------------
102 -- Nom : Fractal_Num --
103 -- But : Retourner un pointeur sur la fractal correspondante a un numeros --
104 -- Parametres ----------------------------------------------------------------------------------
105 -- In : * La liste de fractals --
106 -- * Le numeros de la fractal a chercher : Num --
107 -- --
108 -- return : * Le pointeur sur La fractal correspondante au numero --
109 ------------------------------------------------------------------------------------------------
110 function Fractal_Num (Liste_Fractals : T_Liste_Fractals; Num : Natural) return T_Lien is
111
112 Pointeur : T_Lien := Liste_Fractals.Tete; --Pour pouvoir parcourir la liste
113
114 begin --Fractal_Num
115
116 for I in 2..Num loop
117
118 --Si pas trouve alors propage une erreur
119 if Pointeur = null then raise Fractal_Inexistante; end if;
120 Pointeur := Pointeur.Suiv; --Decale le pointeur
121
122 end loop;
123
124 return Pointeur; --Retourne la fractal trouvee
125
126 end Fractal_Num;
127
128
129 ------------------------------------------------------------------------------------------------
130 -- Nom : Vider_Liste --
131 -- But : vider completement la liste des fractals --
132 -- Parametres ----------------------------------------------------------------------------------
133 -- In-out : * La liste de fractals a vider --
134 ------------------------------------------------------------------------------------------------
135 procedure Vider_Liste(Liste_Fractals : in out T_Liste_Fractals) is
136
137 Pointeur : T_Lien; --Pour pouvoir parcourir la liste
138 procedure Liberer is new Ada.Unchecked_Deallocation ( T_Fractal , T_Lien);
139
140 begin --Vider_Liste
141
142 --Efface tout les elements de la liste
143 while Liste_Fractals.Tete /= null loop
144 Pointeur := Liste_Fractals.Tete;
145 Liste_Fractals.Tete := Liste_Fractals.Tete.Suiv;
146 Liberer (Pointeur);
147 end loop;
148
149 Liste_Fractals.Nb_Fractals := 0;
150
151 end Vider_Liste;
152
153 ------------------------------------------------------------------------------------------------
154 -- Nom : Liste_Defaut --
155 -- But : Mettre dans la liste en parametre des fractals d'exemple --
156 -- Parametres ----------------------------------------------------------------------------------
157 -- In-out : * La liste de fractals a remplir --
158 ------------------------------------------------------------------------------------------------
159 function Liste_Defaut return T_Liste_Fractals is
160 Liste : T_Liste_Fractals;
161
162 begin --Liste_Defaut
163
164 --Les fractales par defaut
165 Ajouter(Liste, Fractal_Initial_Mandel);
166 Ajouter(Liste, Fractal_Initial_Julia);
167
168
169 --D'autre fractal exemple
170 Ajouter(Liste, (Mandelbrot, 4, 30, 4.0, 1.0/4.0, (-0.6, 0.0), 60.0,
171 ( (2,203,253), (0,0,255), (255,255,0), (0,0,0) ),
172 False, False));
173
174 Ajouter(Liste, (Julia, 4, 40, 4.0, 1.0/4.0, (0.0, 0.0), -40.0,
175 ( (0,0,0), (247,91,43), (209,207,30), (255,12,0) ),
176 False, False, -0.277, 0.968));
177
178 Ajouter(Liste, (Mandelbrot, 4, 70, 4.0, 1.0/4.0, (-0.6, 0.0), -90.0,
179 ((180,200,255), (200,250,0), (0,0,255), (0,0,140) ),
180 False, False));
181
182 Ajouter(Liste, (Julia, 4, 40, 4.0, 1.0/4.0, (0.0, 0.0), 0.0,
183 ( (255,0,0), (0,255,0), (0,0,255), (255,255,0) ),
184 False, False, 0.4, 0.02));
185
186 Ajouter(Liste, (Mandelbrot, 4, 33, 4.0, 87.0634, (0.4147, 0.1589), -46.0,
187 ( (0,0,0), (0,255,0), (0,0,255), (0,0,0) ),
188 False, False));
189
190 Ajouter(Liste, (Julia, 4, 30, 1.2, 1.0/4.0, (0.0, 0.0), 0.0,
191 ( (237,89,173), (138,164,237), (0,0,255), (22,23,23) ),
192 False, False, 0.44, 0.2));
193
194 Ajouter(Liste, (Mandelbrot, 4, 180, 3.2, 10.2903, (-1.761, -0.0), -26.0,
195 ( (0,0,0), (0,255,0), (255,20,20), (0,0,0) ),
196 False, False));
197
198 Ajouter(Liste, (Julia, 4, 80, 4.0, 1.0/4.0, (0.0, 0.0), 10.0,
199 ( (255,0,0), (0,255,0), (0,0,255), (255,255,0) ),
200 False, False, -0.757, -0.08));
201
202 Ajouter(Liste, (Mandelbrot, 4, 50, 2.3, 1.0/4.0, (-0.6, 0.0), 180.0,
203 ( (0,100,0), (34,55,0), (0,0,255), (0,32,244) ),
204 False, False));
205
206 Ajouter(Liste, (Julia, 4, 50, 4.0, 1.026, (-0.3471, 0.4628), 0.0,
207 ( (255,0,0), (0,255,0), (0,0,255), (255,255,0) ),
208 False, False, 0.44, -0.14));
209
210 return Liste;
211
212 end Liste_Defaut;
213
214
215 ------------------------------------------------------------------------------------------------
216 -- Nb_Fractals --
217 ------------------------------------------------------------------------------------------------
218 function Nb_Fractals (Liste_Fractals : in T_Liste_Fractals) return Natural is
219
220 begin --Nb_Fractals
221
222 return Liste_Fractals.Nb_Fractals;
223
224 end Nb_Fractals;
225
226 end Power_List;