gel.sprite: Fix apply force.

2023-10-21 12:35:10 +11:00
parent 0b6e063d29
commit 4fa47e7396
2 changed files with 3 additions and 2 deletions
--- a/4-high/gel/source/gel-sprite.adb
+++ b/4-high/gel/source/gel-sprite.adb
@@ -709,7 +709,8 @@ is
   is
      the_Force : aliased constant Vector_3 := Force;
   begin
-      Self.World.apply_Force (Self'unchecked_Access, the_Force);
+      Self.Solid.apply_Force (Force);
+      --  Self.World.apply_Force (Self'unchecked_Access, the_Force);
   end apply_Force;