⟦bb7db5cb3⟧

E3 Source Code



--| @SUMMARY This package draws graphic lines on the terminal.  All procedures
--|    assume the existence of an open output window.
--| @DESCRIPTION See the description of each procedure.
--| @INDICES (Graphics, Window_Io)
with Window_Io;
package Graphic_Lines is

    subtype Line_Number is Window_Io.Line_Number;
    subtype Col_Number  is Window_Io.Column_Number;
    subtype Window_Id   is Window_Io.File_Type;


    --| @DESCRIPTION Draws a vertical line from one window line to another,
    --|    given a column number.  If there are other graphics characters
    --|    along the line, they are overwritten.
    procedure Draw_Vertical (From_Line     : Line_Number;
                             To_Line       : Line_Number;
                             In_Column     : Col_Number;
                             Output_Window : Window_Id);


    --| @DESCRIPTION Draws a horizontal line from one window column to
    --|    another, given a line number.  If there are other graphics
    --|    characters along the column, they are overwritten.
    procedure Draw_Horizontal (From_Col      : Col_Number;
                               To_Col        : Col_Number;
                               On_Line       : Line_Number;
                               Output_Window : Window_Id);


    --| @DESCRIPTION Draws a graphic box of any size.
    procedure Draw_Box (First_Line    : Line_Number;
                        First_Col     : Col_Number;
                        Second_Line   : Line_Number;
                        Second_Col    : Col_Number;
                        Output_Window : Window_Id);


    --| @DESCRIPTION Connects two points in a column with a vertical
    --|    line.  If any graphics characters fall along the line, the
    --|    procedure attempts to connect them.  For instance, if the
    --|    new vertical line will cross a horizontal line, an intersection
    --|    character is displayed.
    --| @SPECIAL_NOTES If the endpoints of the vertical line are blank,
    --|    the procedure places graphic "dots" at the endpoints.  Presumably
    --|    this is because future calls to Connect_Vertical or Connect_
    --|    Horizontal will eliminate them.
    procedure Connect_Vertical (From_Line     : Line_Number;
                                To_Line       : Line_Number;
                                In_Column     : Col_Number;
                                Output_Window : Window_Id);


    --| @DESCRIPTION Connects two points in a line with a horizontal
    --|    line.  If any graphics characters fall along the line, the
    --|    procedure attempts to connect them.  For instance, if the
    --|    new horizontal line will cross a vertical line, an intersection
    --|    character is displayed.
    --| @SPECIAL_NOTES If the endpoints of the horizontal line are blank,
    --|    the procedure places graphic "dots" at the endpoints.  Presumably
    --|    this is because future calls to Connect_Vertical or Connect_
    --|    Horizontal will eliminate them.
    procedure Connect_Horizontal (From_Col      : Col_Number;
                                  To_Col        : Col_Number;
                                  On_Line       : Line_Number;
                                  Output_Window : Window_Id);

end Graphic_Lines;
DataMuseum.dk

Rational R1000/400

⟦bb7db5cb3⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
