From 4fa47e7396c30f2e8ffb71650a0079d24a72acdc Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Sat, 21 Oct 2023 12:35:10 +1100
Subject: [PATCH] gel.sprite: Fix apply force.

---
 4-high/gel/source/gel-sprite.adb      | 3 ++-
 4-high/gel/source/world/gel-world.adb | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/4-high/gel/source/gel-sprite.adb b/4-high/gel/source/gel-sprite.adb
index 664f043..ff09b8b 100644
--- 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;
 
 
diff --git a/4-high/gel/source/world/gel-world.adb b/4-high/gel/source/world/gel-world.adb
index efce921..0bd2b22 100644
--- a/4-high/gel/source/world/gel-world.adb
+++ b/4-high/gel/source/world/gel-world.adb
@@ -437,7 +437,7 @@ is
                                                 Force     : in Vector_3)
    is
    begin
-      null;
+      to_Sprite.apply_Force (Force);
       --  Self.physics_Engine.apply_Force (to_Sprite.Solid, Force);
    end apply_Force;