Minor tweaks

1 files 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);