1 files changed, 41 insertions, 0 deletions
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;
+