gel-world: Add 'reserve_Ids' procedure.

2024-01-09 17:03:42 +11:00
parent c06af0baf4
commit f0760d0870
2 changed files with 26 additions and 2 deletions
--- a/4-high/gel/source/world/gel-world.adb
+++ b/4-high/gel/source/world/gel-world.adb
@@ -1154,6 +1154,21 @@ is



+
+   -------
+   --- Ids
+   --
+
+   procedure reserve_Ids (Self : in out Item;   Before : in long_Integer)
+   is
+   begin
+      Self.last_used_sprite_Id        :=         sprite_Id (Before - 1);
+      Self.last_used_model_Id         := graphics_model_Id (Before - 1);
+      Self.last_used_physics_model_Id := physics .model_Id (Before - 1);
+   end reserve_Ids;
+
+
+
   -----------
   --  Testing
   --