From e1a99e83fdcaf5b2b96b2883a0de0441ad267ac7 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Fri, 18 Nov 2022 16:01:52 +1300
Subject: Minor tweaks

---
 src/fluid_simulator.adb | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/fluid_simulator.adb b/src/fluid_simulator.adb
index f683259..4f33a2f 100644
--- a/src/fluid_simulator.adb
+++ b/src/fluid_simulator.adb
@@ -12,8 +12,7 @@ use
 
 use type
 
-    Datatypes.Plane.Complex,
-    Datatypes.Plane.Imaginary;
+    Datatypes.Plane.Complex;
 
 procedure Fluid_Simulator is
 
@@ -79,6 +78,8 @@ procedure Fluid_Simulator is
         end loop;
     end Calculate_Density;
 
+
+
     procedure Calculate_Interaction
            (Store : in out Particle_Vector)
     is
@@ -102,6 +103,8 @@ procedure Fluid_Simulator is
         end loop;
     end Calculate_Interaction;
 
+
+
     procedure Update_Position
            (Store : in out Particle_Vector) is
     begin
@@ -135,10 +138,10 @@ begin
 
     Read_Input (Particles);
     loop
+        Calculate_Density (Particles);
         ANSI.Clear_Screen;
         ANSI.Reset_Cursor;
         IO.Put (ANSI.Marching_Squares (Particles));
-        Calculate_Density (Particles);
         Calculate_Interaction (Particles);
         Update_Position (Particles);
         Cull_Outside_Bounds (Particles, 50.0);
-- 
cgit