diff options
| -rw-r--r-- | src/fluid_simulator.adb | 9 |
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); |