Skip to content
Snippets Groups Projects
Select Git revision
  • 611b8cc748c1d553dcc682d943527b516f1c6483
  • master default
2 results

test_sglib.adb

Blame
  • Forked from iti_logiciel_public / ada_sglib
    Up to date with the upstream repository.
    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;