DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦db715f1c6⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Graphic_Lines, seg_0046f0

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧

E3 Source Code



with Graphics_Chars;
with Io_Exceptions;
package body Graphic_Lines is
    package Gc renames Graphics_Chars;

    type Directions is (Left, Right, Up, Down);

    function Smaller (First, Second : Positive) return Positive is
    begin
        if First < Second then
            return First;
        else
            return Second;
        end if;
    end Smaller;

    function Larger (First, Second : Positive) return Positive is
    begin
        if First > Second then
            return First;
        else
            return Second;
        end if;
    end Larger;


    procedure Draw_Vertical (From_Line     : Line_Number;
                             To_Line       : Line_Number;
                             In_Column     : Col_Number;
                             Output_Window : Window_Id) is separate;


    procedure Draw_Horizontal (From_Col      : Col_Number;
                               To_Col        : Col_Number;
                               On_Line       : Line_Number;
                               Output_Window : Window_Id) is separate;


    procedure Draw_Box (First_Line    : Line_Number;
                        First_Col     : Col_Number;
                        Second_Line   : Line_Number;
                        Second_Col    : Col_Number;
                        Output_Window : Window_Id) is separate;


    function Endpoint_Union
                (Output_Window : Window_Id;
                 Include_Left  : Boolean;
                 Include_Right : Boolean;
                 Include_Up    : Boolean;
                 Include_Down  : Boolean) return Character is separate;


    procedure Connect_Endpoint (Line          : Line_Number;
                                Col           : Col_Number;
                                Going         : Directions;
                                Output_Window : Window_Id) is separate;


    procedure Connect_Vertical (From_Line     : Line_Number;
                                To_Line       : Line_Number;
                                In_Column     : Col_Number;
                                Output_Window : Window_Id) is separate;


    procedure Connect_Horizontal (From_Col      : Col_Number;
                                  To_Col        : Col_Number;
                                  On_Line       : Line_Number;
                                  Output_Window : Window_Id) is separate;
end Graphic_Lines;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=24 rec1=00 rec2=01 rec3=012
        [0x01] rec0=19 rec1=00 rec2=02 rec3=050
        [0x02] rec0=0b rec1=00 rec2=03 rec3=000
    tail 0x217002a64815c6762a4e7 0x42a00088462061e03