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: ┃ T V ┃

⟦132de0efd⟧ TextFile

    Length: 896 (0x380)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with R_Kbs;
package R_Frames is

    type Window_Slots is (Bounds, Title);

    type Rectangle_Slots is (Top_Left, Bottom_Right);

    type Point_Slots is (X, Y);


    package Windows is
       new R_Kbs.Kbs.Fact_Base.Generic_Class (Class_Name => R_Kbs.Window,
                                              Class_Size => 20,
                                              Slot_Names => Window_Slots);


    package Rectangles is
       new R_Kbs.Kbs.Fact_Base.Generic_Class (Class_Name => R_Kbs.Rectangle,
                                              Class_Size => 20,
                                              Slot_Names => Rectangle_Slots);

    package Points is
       new R_Kbs.Kbs.Fact_Base.Generic_Class (Class_Name => R_Kbs.Point,
                                              Class_Size => 5,
                                              Slot_Names => Point_Slots);


end R_Frames;