DataMuseum.dk

top - download

    Length: 1608 (0x648)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 

TextFile

package body Graphic_Object is

    procedure Draw_Rectangle (X1, Y1 : Integer; X2, Y2 : Integer) is
    begin
        null;
    end Draw_Rectangle;
    procedure Open (Display : String := "aconit") is
        X : Integer := 0;
        Y : Integer := 0;
    begin  
        Easy_X.Open (Display, " TINY_WINDOW", 100, 100, 800, 800);
    end Open;

    procedure Close is

    begin
        Easy_X.Close;
    end Close;

    procedure Move (X, Y : Integer) is
    begin
        Current_X := X;
        Current_Y := Y;
        Easy_X.Move_To (Easy_X.Coordinate (Current_X),
                        Easy_X.Coordinate (Current_Y));
    end Move;

    procedure Draw (X, Y : Integer) is
    begin
        Easy_X.Move_To (Easy_X.Coordinate (Current_X),
                        Easy_X.Coordinate (Current_Y));
        Current_X := X;
        Current_Y := Y;  
        Easy_X.Line_To (Easy_X.Coordinate (Current_X),
                        Easy_X.Coordinate (Current_Y));
    end Draw;

    procedure Set_Pen (Size : Integer) is
    begin
        Easy_X.Set_Pen (Easy_X.Dimension (Size));
    end Set_Pen;

    procedure Draw_With_Font (Posx : Integer;
                              Posy : Integer;
                              The_String : String;
                              To : Font := Small_Font) is
        Abscisse, Ordonnee : Integer;
    begin
        Abscisse := Current_X;
        Ordonnee := Current_Y;
        Move (Posx, Posy);
        Easy_X.Set_Font (To => Easy_X.Fonts (To));
        Easy_X.Draw_String (The_String);
        Move (Abscisse, Ordonnee);
    end Draw_With_Font;

end Graphic_Object;