gel.world: Work on dsa.

2023-11-17 15:09:14 +11:00
parent fa02760f9c
commit c921b638a1
8 changed files with 207 additions and 116 deletions
--- a/4-high/gel/source/gel-sprite.adb
+++ b/4-high/gel/source/gel-sprite.adb
@@ -665,7 +665,8 @@ is
   procedure Speed_is (Self : in out Item;   Now : in Vector_3)
   is
   begin
-      Self.World.set_Speed (Self'unchecked_Access, Now);
+      Self.Solid.Speed_is (Now);
+      --  Self.World.set_Speed (Self'unchecked_Access, Now);
   end Speed_is;