DEL remove useless code
[powerfractal.git] / CD / Src / Power_Draw.ads
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.Draw;
11
12 package Power_Draw is
13
14 ------------------------------------------------------------------------------------------------
15 -- Nom : Boite --
16 -- But : dessiner un rectangle vide a l'ecran --
17 -- --
18 -- Parametres ----------------------------------------------------------------------------------
19 -- In : * les coordonnees du point superieur gauche : X1, Y1 --
20 -- * les coordonnees du point inferieur droit : X2, Y2 --
21 -- --
22 ------------------------------------------------------------------------------------------------
23 procedure Boite (X1, Y1, X2, Y2 : Natural; Couleur : Spider.Draw.Tcolor);
24
25
26 ------------------------------------------------------------------------------------------------
27 -- Nom : Ligne_Matrice_Hori --
28 -- But : rafraichire une ligne horizontale de l'ecran depuis le tampon --
29 -- --
30 -- Parametres ----------------------------------------------------------------------------------
31 -- In : * La coordonnee de depart : X1 --
32 -- * La coordonnee de la fin : X2 --
33 -- * La coordonnee de positionement en Y : Y --
34 -- --
35 ------------------------------------------------------------------------------------------------
36 procedure Ligne_Matrice_Hori (X1, X2, Y : Natural);
37
38
39 ------------------------------------------------------------------------------------------------
40 -- Nom : Ligne_Matrice_Vert --
41 -- But : rafraichire une ligne verticale de l'ecran depuis le tampon --
42 -- --
43 -- Parametres ----------------------------------------------------------------------------------
44 -- In : * La coordonnee de depart : Y1 --
45 -- * La coordonnee de la fin : Y2 --
46 -- * La coordonnee de positionement en X : X --
47 -- --
48 ------------------------------------------------------------------------------------------------
49 procedure Ligne_Matrice_Vert (Y1, Y2, X : Natural);
50
51 ------------------------------------------------------------------------------------------------
52 -- Nom : Dessin_Croix --
53 -- But : dessiner une petite croix sur l'ecran --
54 -- --
55 -- Parametres ----------------------------------------------------------------------------------
56 -- In : Les coordonnees de la croix : X et Y --
57 -- --
58 ------------------------------------------------------------------------------------------------
59 procedure Dessin_Croix (X, Y : Natural);
60
61 ------------------------------------------------------------------------------------------------
62 -- Nom : Efface_Croix --
63 -- But : Effacer la croix qui a au paravant ete dessine en X, Y --
64 -- --
65 -- Parametres ----------------------------------------------------------------------------------
66 -- In : * Les coordonnees de la croix a effacer : X, Y --
67 -- --
68 ------------------------------------------------------------------------------------------------
69 procedure Efface_Croix (X, Y : Natural);
70
71 end Power_Draw;