------------------------------------------------------------------------------------------------ -- Nom : Power_Draw / fait partie du programme Power Fractal -- -- -- -- Auteurs : Gregory Burri & Adrien Crivelli -- ------------------------------------------------------------------------------------------------ -- But : Outils de bas niveau pour le dessin a l'ecran. -- -- Comme dessiner un carre, une partie du tampon etc.. -- ------------------------------------------------------------------------------------------------ with Spider.Draw; package Power_Draw is ------------------------------------------------------------------------------------------------ -- Nom : Boite -- -- But : dessiner un rectangle vide a l'ecran -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : * les coordonnees du point superieur gauche : X1, Y1 -- -- * les coordonnees du point inferieur droit : X2, Y2 -- -- -- ------------------------------------------------------------------------------------------------ procedure Boite (X1, Y1, X2, Y2 : Natural; Couleur : Spider.Draw.Tcolor); ------------------------------------------------------------------------------------------------ -- Nom : Ligne_Matrice_Hori -- -- But : rafraichire une ligne horizontale de l'ecran depuis le tampon -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : * La coordonnee de depart : X1 -- -- * La coordonnee de la fin : X2 -- -- * La coordonnee de positionement en Y : Y -- -- -- ------------------------------------------------------------------------------------------------ procedure Ligne_Matrice_Hori (X1, X2, Y : Natural); ------------------------------------------------------------------------------------------------ -- Nom : Ligne_Matrice_Vert -- -- But : rafraichire une ligne verticale de l'ecran depuis le tampon -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : * La coordonnee de depart : Y1 -- -- * La coordonnee de la fin : Y2 -- -- * La coordonnee de positionement en X : X -- -- -- ------------------------------------------------------------------------------------------------ procedure Ligne_Matrice_Vert (Y1, Y2, X : Natural); ------------------------------------------------------------------------------------------------ -- Nom : Dessin_Croix -- -- But : dessiner une petite croix sur l'ecran -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : Les coordonnees de la croix : X et Y -- -- -- ------------------------------------------------------------------------------------------------ procedure Dessin_Croix (X, Y : Natural); ------------------------------------------------------------------------------------------------ -- Nom : Efface_Croix -- -- But : Effacer la croix qui a au paravant ete dessine en X, Y -- -- -- -- Parametres ---------------------------------------------------------------------------------- -- In : * Les coordonnees de la croix a effacer : X, Y -- -- -- ------------------------------------------------------------------------------------------------ procedure Efface_Croix (X, Y : Natural); end Power_Draw;