|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 1032 (0x408)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
with Object;
with Graphic_Object;
package Turtle_Class is
type Turtle is private;
function Send (To_Object : Object.Reference; The_Message : Object.Message)
return Object.Reference;
function Send (To_Object : Object.Reference;
The_Argument : Object.Parameters.List)
return Object.Reference;
function Send (To_Object : Object.Reference; The_Message : Object.Message)
return String;
private
subtype Index is Integer range 0 .. 99;
type Turtle is
record
X : Integer := 0;
Y : Integer := 0;
Angle : Integer := 0;
Marker_Up : Boolean := True;
Draw_Size : Integer := 1;
end record;
type Turtle_Table is array (Index range <>) of Turtle;
subtype Iterator is Index;
type Collection is
record
Table : Turtle_Table (Index);
Iter : Iterator := 0;
end record;
Turtle_Collection : Collection;
end Turtle_Class;