DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ B T ┃

⟦09cee59e1⟧ TextFile

    Length: 1439 (0x59f)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

package body Graphic_Object is

    procedure Open (Display : String := "aconit") is
    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;