From e7892f0f87a9258d3b45e9d0cf674ce142f761eb Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Fri, 18 Nov 2022 02:40:52 +1300 Subject: Refactored code into appropriate packages --- src/ansi_terminal.ads | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 src/ansi_terminal.ads (limited to 'src/ansi_terminal.ads') diff --git a/src/ansi_terminal.ads b/src/ansi_terminal.ads new file mode 100644 index 0000000..027f771 --- /dev/null +++ b/src/ansi_terminal.ads @@ -0,0 +1,41 @@ + +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; + -- cgit