with

    Datatypes;

package ANSI_Terminal is

    function Clear_Screen
        return String;

    function Reset_Cursor
        return String;

    procedure Clear_Screen;
    procedure Reset_Cursor;

    function BG_Color_Code
           (Value : in Natural)
        return String;

    function Marching_Squares
           (Input : in Datatypes.Particle_Vector)
        return String;

private

    use Datatypes;

    Liquid_Chars : constant String (1 .. 16) := " ,.-`[//'\]\-\/#";

    type Liquidex is mod 2**4;

    type March_Cell is record
        Index   : Liquidex := 0;
        Density : Quantity := 0.0;
    end record;

    type March_Cell_Grid is array (Integer range <>, Integer range <>) of March_Cell;

end ANSI_Terminal;