summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/fluid_simulator.adb9
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);