|
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 Graphiques, seg_0324c6
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Easy_X;
package body Graphiques is
procedure Move (X : in Integer; Y : in Integer) is
begin
X_Courant := X;
Y_Courant := Y;
Easy_X.Move_To (Easy_X.Coordinate (X_Courant),
Easy_X.Coordinate (Y_Courant));
end Move;
procedure Draw (X : in Integer; Y : in Integer) is
begin
Easy_X.Move_To (Easy_X.Coordinate (X_Courant),
Easy_X.Coordinate (Y_Courant));
X_Courant := X;
Y_Courant := Y;
Easy_X.Line_To (Easy_X.Coordinate (X_Courant),
Easy_X.Coordinate (Y_Courant));
end Draw;
procedure Carre (X : in Integer; Y : in Integer; Cote : in Integer) is
begin
Move (X, Y);
Draw (X + Cote, Y);
Draw (X + Cote, Y + Cote);
Draw (X, Y + Cote);
Draw (X, Y);
end Carre;
procedure Plot (X : in Integer; Y : in Integer) is
begin
X_Courant := X;
Y_Courant := Y;
Easy_X.Move_To (Easy_X.Coordinate (X_Courant),
Easy_X.Coordinate (Y_Courant));
Easy_X.Line_To (Easy_X.Coordinate (X_Courant),
Easy_X.Coordinate (Y_Courant));
end Plot;
procedure Rectangle (X1 : in Integer;
Y1 : in Integer;
X2 : in Integer;
Y2 : in Integer) is
begin
Easy_X.Move_To (Easy_X.Coordinate (X1), Easy_X.Coordinate (Y1));
Easy_X.Line_To (Easy_X.Coordinate (X2), Easy_X.Coordinate (Y1));
Easy_X.Line_To (Easy_X.Coordinate (X2), Easy_X.Coordinate (Y2));
Easy_X.Line_To (Easy_X.Coordinate (X1), Easy_X.Coordinate (Y2));
Easy_X.Line_To (Easy_X.Coordinate (X1), Easy_X.Coordinate (Y1));
end Rectangle;
end Graphiques;
nblk1=4
nid=3
hdr6=4
[0x00] rec0=25 rec1=00 rec2=01 rec3=014
[0x01] rec0=17 rec1=00 rec2=04 rec3=000
[0x02] rec0=15 rec1=00 rec2=03 rec3=068
[0x03] rec0=04 rec1=00 rec2=02 rec3=000
tail 0x2172d4c3884c589423b5f 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 02 03 fc 80 01 3b 01 00 1b 20 20 20 20 20 20 ┆ ; ┆
0x2: 0000 00 00 00 44 80 14 5f 58 2e 43 6f 6f 72 64 69 6e ┆ D _X.Coordin┆