|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Graphic_Object, seg_038ead, seg_038f53
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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;
nblk1=4
nid=2
hdr6=4
[0x00] rec0=26 rec1=00 rec2=01 rec3=018
[0x01] rec0=0f rec1=00 rec2=03 rec3=000
[0x02] rec0=0f rec1=00 rec2=02 rec3=000
[0x03] rec0=09 rec1=00 rec2=03 rec3=000
tail 0x21531ea2684e86d300cea 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 04 01 da 80 42 5f 58 2e 4c 69 6e 65 5f 54 6f ┆ B_X.Line_To┆
0x4: 0000 00 00 00 04 80 01 79 01 02 03 04 05 06 07 08 00 ┆ y ┆