Select Git revision
test_sglib.adb
Forked from
iti_logiciel_public / ada_sglib
Up to date with the upstream repository.

Adrien Lescourt authored
test_sglib.adb 2.13 KiB
with Sglib; use Sglib; -- Définition des paquetages utilises
procedure TEST_SGLIB is
-- Procedure principale dessinant textes et figures:
begin
-- Initialisation de la fenetre X:
INITX(100,100,400,400);
-- -- Dessin de 6 rectangles emboîtes de couleurs différentes:
COLOR(BLACK);
RECTANGLE(10,10,380,380);
COLOR(RED);
RECTANGLE(20,20,360,360);
COLOR(GREEN);
RECTANGLE(30,30,340,340);
COLOR(BLUE);
RECTANGLE(40,40,320,320);
COLOR(YELLOW);
RECTANGLE(50,50,300,300);
COLOR(GRAY);
RECTANGLE(60,60,280,280);
COLOR(BLACK);
-- Affichage d'un texte centre avec des fontes différentes:
CHAR_SIZE(8);
TEXT((400-TEXT_WIDTH("Ceci est un"))/2,100,"Ceci est un");
CHAR_SIZE(10);
TEXT((400-TEXT_WIDTH("texte ayant"))/2,114,"texte ayant");
CHAR_SIZE(12);
TEXT((400-TEXT_WIDTH("pour but de"))/2,130,"pour but de");
CHAR_SIZE(14);
TEXT((400-TEXT_WIDTH("faire apparaitre"))/2,150,"faire apparaitre");
CHAR_SIZE(18);
TEXT((400-TEXT_WIDTH("les diffentes tailles"))/2,175, "les diffentes tailles");
CHAR_SIZE(24);
TEXT((400-TEXT_WIDTH("de caracteres"))/2,205,"de caracteres");
-- Dessin d'un cercle plein et d'une ellipse vide:
COLOR(BLUE);
CIRCLE(130,270,30,FILL);
COLOR(WHITE);
ELLIPSE(130,270,30,10,FILL);
-- Dessin d'un arc:
COLOR(BLACK);
ARC(300,300,30,-180,45);
-- Dessin de lignes de différents types:
LINE_DASHE(DOTS);
LINE(300,100,300,150);
LINE_DASHE(DASHES);
LINE(300,150,300,200);
LINE_DASHE(MIXED);
LINE(300,200,300,250);
LINE_DASHE(SOLID);
-- Dessin de traits d’épaisseurs différentes:
COLOR(GRAY);
LINE_WIDTH(2);
LINE(310,100,310,150);
LINE_WIDTH(3);
LINE(315,100,315,200);
LINE_WIDTH(4);
LINE(322,100,322,250);
LINE_WIDTH(5);
LINE(329,100,329,250);
-- Dessin de points:
COLOR(RED);
for I in 1..20 loop
for J in 1..20 loop
POINT(200+(I-1)*2,280+(J-1)*2);
end loop ;
end loop ;
-- Attente infinie:
loop
Null;
end loop ;
-- -- Fermeture de la fenêtre X:
--CLOSEX;
end TEST_SGLIB;