1 ------------------------------------------------------------------------------------------------
2 -- Nom : Power_Draw / fait partie du programme Power Fractal --
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 ------------------------------------------------------------------------------------------------
14 ------------------------------------------------------------------------------------------------
16 -- But : dessiner un rectangle vide a l'ecran --
18 -- Parametres ----------------------------------------------------------------------------------
19 -- In : * les coordonnees du point superieur gauche : X1, Y1 --
20 -- * les coordonnees du point inferieur droit : X2, Y2 --
22 ------------------------------------------------------------------------------------------------
23 procedure Boite (X1
, Y1
, X2
, Y2
: Natural; Couleur
: Spider
.Draw
.Tcolor
);
26 ------------------------------------------------------------------------------------------------
27 -- Nom : Ligne_Matrice_Hori --
28 -- But : rafraichire une ligne horizontale de l'ecran depuis le tampon --
30 -- Parametres ----------------------------------------------------------------------------------
31 -- In : * La coordonnee de depart : X1 --
32 -- * La coordonnee de la fin : X2 --
33 -- * La coordonnee de positionement en Y : Y --
35 ------------------------------------------------------------------------------------------------
36 procedure Ligne_Matrice_Hori (X1
, X2
, Y
: Natural);
39 ------------------------------------------------------------------------------------------------
40 -- Nom : Ligne_Matrice_Vert --
41 -- But : rafraichire une ligne verticale de l'ecran depuis le tampon --
43 -- Parametres ----------------------------------------------------------------------------------
44 -- In : * La coordonnee de depart : Y1 --
45 -- * La coordonnee de la fin : Y2 --
46 -- * La coordonnee de positionement en X : X --
48 ------------------------------------------------------------------------------------------------
49 procedure Ligne_Matrice_Vert (Y1
, Y2
, X
: Natural);
51 ------------------------------------------------------------------------------------------------
52 -- Nom : Dessin_Croix --
53 -- But : dessiner une petite croix sur l'ecran --
55 -- Parametres ----------------------------------------------------------------------------------
56 -- In : Les coordonnees de la croix : X et Y --
58 ------------------------------------------------------------------------------------------------
59 procedure Dessin_Croix (X
, Y
: Natural);
61 ------------------------------------------------------------------------------------------------
62 -- Nom : Efface_Croix --
63 -- But : Effacer la croix qui a au paravant ete dessine en X, Y --
65 -- Parametres ----------------------------------------------------------------------------------
66 -- In : * Les coordonnees de la croix a effacer : X, Y --
68 ------------------------------------------------------------------------------------------------
69 procedure Efface_Croix (X
, Y
: Natural);