DEL remove useless code
[powerfractal.git] / Src / Power_Draw.adb
1 ------------------------------------------------------------------------------------------------
2 -- Nom : Power_Draw / fait partie du programme Power Fractal --
3 -- --
4 -- Auteurs : Gregory Burri & Adrien Crivelli --
5 ------------------------------------------------------------------------------------------------
6 -- But : Outils de bas niveau pour le dessin a l'ecran. --
7 -- Comme dessiner un carre, une partie du tampon etc.. --
8 ------------------------------------------------------------------------------------------------
9
10 with Spider; use Spider;
11 with Spider.Draw; use Spider.Draw; --Enfant de spider Pour gerer la couleur et le dessin
12 with Power_Types; use Power_Types;
13 with Power_Colors;
14
15 package body Power_Draw is
16
17 ------------------------------------------------------------------------------------------------
18 -- Nom : Dessin_Point_Fractal --
19 -- But : Dessiner un point de la fractal a l'ecran depuis la Matrice Tampon --
20 -- Parametres ----------------------------------------------------------------------------------
21 -- In : * les coordonnees x et y du point --
22 ------------------------------------------------------------------------------------------------
23 procedure Dessin_Point_Fractal(X, Y : Natural) is
24 Color_Back : Spider.Draw.Tcolor; --La couleur au format spider
25 begin -- Dessin_Point_Fractal
26
27 --Copie les composantes RGB du point dans la variable au format spider
28 Color_Back.R := Integer(Matrice_Tampon_Ecran(X, Y).R);
29 Color_Back.G := Integer(Matrice_Tampon_Ecran(X, Y).G);
30 Color_Back.B := Integer(Matrice_Tampon_Ecran(X, Y).b);
31 --
32
33 Set_Color_Pen(Color_Back); --Defini la couleur du pinceau
34 Move_To(X,Y); --Se deplace au coordonnees du point
35 Put_Pixel; --Affiche une pixel
36
37 end Dessin_Point_Fractal;
38
39
40 ------------------------------------------------------------------------------------------------
41 -- Nom : Boite --
42 -- But : dessiner un rectangle vide a l'ecran --
43 -- --
44 -- Parametres ----------------------------------------------------------------------------------
45 -- In : * les coordonnees du point superieur gauche : X1, Y1 --
46 -- * les coordonnees du point inferieur droit : X2, Y2 --
47 -- --
48 ------------------------------------------------------------------------------------------------
49 procedure Boite (X1, Y1, X2, Y2 : Natural; Couleur : Spider.Draw.Tcolor) is
50
51 begin --Boite
52
53
54 Spider.Draw.Set_Color_Pen(Couleur);
55 --Dessine quatre traits pour former le rectangle
56 Line_To(X1, Y1, X2, Y1);
57 Line_To(X1, Y2, X2, Y2);
58
59
60 Line_To(X1, Y1, X1, Y2);
61 Line_To(X2, Y1, X2, Y2);
62 --
63
64 end Boite;
65
66
67 ------------------------------------------------------------------------------------------------
68 -- Nom : Ligne_Matrice_Hori --
69 -- But : rafraichire une ligne horizontale de l'ecran depuis le tampon --
70 -- --
71 -- Parametres ----------------------------------------------------------------------------------
72 -- In : * La coordonnee de depart : X1 --
73 -- * La coordonnee de la fin : X2 --
74 -- * La coordonnee de positionement en Y : Y --
75 -- --
76 ------------------------------------------------------------------------------------------------
77 procedure Ligne_Matrice_Hori (X1, X2, Y : Natural) is
78
79 --Variable temporaire
80 X1_Tmp : Natural := X1;
81 X2_Tmp : Natural := X2;
82 --
83
84 Tmp : Natural; --Pour le swap de valeurs
85
86 begin --Ligne_Matrice_hori
87
88 --Si X1 est plus grand que X2 alors permute leur valeur
89 if X1_Tmp > X2_Tmp then
90 Tmp := X1_Tmp;
91 X1_Tmp := X2_Tmp;
92 X2_Tmp := Tmp;
93 end if;
94
95 --Boucle pour chaque point a dessiner
96 for I in X1_Tmp..X2_Tmp loop
97 Dessin_Point_Fractal(I, Y); --Affiche le point
98 end loop;
99
100 end Ligne_Matrice_Hori;
101
102
103 ------------------------------------------------------------------------------------------------
104 -- Nom : Ligne_Matrice_Vert --
105 -- But : rafraichire une ligne verticale de l'ecran depuis le tampon --
106 -- --
107 -- Parametres ----------------------------------------------------------------------------------
108 -- In : * La coordonnee de depart : Y1 --
109 -- * La coordonnee de la fin : Y2 --
110 -- * La coordonnee de positionement en X : X --
111 -- --
112 ------------------------------------------------------------------------------------------------
113 procedure Ligne_Matrice_Vert (Y1, Y2, X : Natural) is
114
115 --Variable temporaire
116 Y1_Tmp : Natural := Y1;
117 Y2_Tmp : Natural := Y2;
118 Tmp : Natural; --Pour le swap de valeurs
119 --
120
121 begin --Ligne_Matrice_hori
122
123 --Si Y1 est plus grand que Y2 alors permute leur valeur
124 if Y1_Tmp > Y2_Tmp then
125 Tmp := Y1_Tmp;
126 Y1_Tmp := Y2_Tmp;
127 Y2_Tmp := Tmp;
128 end if;
129
130 --Boucle pour chaque point a dessiner
131 for I in Y1_Tmp..Y2_Tmp loop
132 Dessin_Point_Fractal(X, I);
133 end loop;
134
135 end Ligne_Matrice_Vert;
136
137
138
139 ------------------------------------------------------------------------------------------------
140 -- Nom : Dessin_Croix --
141 -- But : dessiner une petite croix sur l'ecran --
142 -- --
143 -- Parametres ----------------------------------------------------------------------------------
144 -- In : Les coordonnees de la croix : X et Y --
145 -- --
146 ------------------------------------------------------------------------------------------------
147 procedure Dessin_Croix (X, Y : Natural) is
148 Color_Back : Spider.Draw.Tcolor; --La couleur au format spider
149 begin --Dessin_croix
150
151 --Si la croix peut-etre dessine (il faut tenir compte de son rayon : Rayon_Ext_Croix)
152 if X in 0 + Rayon_Ext_Croix..Largeur_Ecran - Rayon_Ext_Croix
153 and Y in 0 + Rayon_Ext_Croix ..Hauteur_Ecran - Rayon_Ext_Croix then
154
155 --Copie les composantes RGB du point dans la variable au format spider
156 Color_Back.R := Integer(Matrice_Tampon_Ecran(X, Y).R);
157 Color_Back.G := Integer(Matrice_Tampon_Ecran(X, Y).G);
158 Color_Back.B := Integer(Matrice_Tampon_Ecran(X, Y).B);
159 --
160
161 Power_Colors.Inverse_Couleur(Color_Back); --Inverse la couleur
162
163 Set_Color_Pen(Color_Back); --Defini la couleur du pinceau
164
165 --Trace la croix en fonction de la constante du rayon interne : Rayon_Int_Croix
166 --et de la constante du rayon interne : Rayon_Int_Croix
167 Line_To(X - Rayon_Ext_Croix ,Y , X - Rayon_Int_Croix , Y);
168 Line_To(X + Rayon_Ext_Croix ,Y , X + Rayon_Int_Croix , Y);
169 Line_To(X ,Y - Rayon_Ext_Croix , X , Y - Rayon_Int_Croix);
170 Line_To(X ,Y + Rayon_Ext_Croix , X , Y + Rayon_Int_Croix);
171 --
172 end if;
173
174 end Dessin_Croix;
175
176 ------------------------------------------------------------------------------------------------
177 -- Nom : Efface_Croix --
178 -- But : Effacer la croix qui a au paravant ete dessine en X, Y --
179 -- --
180 -- Parametres ----------------------------------------------------------------------------------
181 -- In : * Les coordonnees de la croix a effacer : X, Y --
182 -- --
183 ------------------------------------------------------------------------------------------------
184 procedure Efface_Croix (X, Y : Natural) is
185 begin -- Efface_Croix
186
187 --Si le point xy est un point ou une croix a put etre dessine
188 if X in 0 + Rayon_Ext_Croix..Largeur_Ecran - Rayon_Ext_Croix and Y in 0
189 + Rayon_Ext_Croix ..Hauteur_Ecran - Rayon_Ext_Croix then
190
191 --Efface la croix, en dessinant par dessus une nouvelle croix mais par rapport au tampon
192 Ligne_Matrice_Hori(X - Rayon_Ext_Croix, X - Rayon_Int_Croix, Y);
193 Ligne_Matrice_Hori(X + Rayon_Ext_Croix, X + Rayon_Int_Croix, Y);
194 Ligne_Matrice_Vert(Y - Rayon_Ext_Croix, Y - Rayon_Int_Croix, X);
195 Ligne_Matrice_Vert(Y + Rayon_Ext_Croix, Y + Rayon_Int_Croix, X);
196 --
197
198 end if;
199 end Efface_Croix;
200
201 end Power_Draw;