gel.world: Add point casting.

2023-12-31 21:32:40 +11:00
parent 5280fa919f
commit 036cc6ec92
2 changed files with 35 additions and 0 deletions
--- a/4-high/gel/source/world/gel-world.ads
+++ b/4-high/gel/source/world/gel-world.ads
@@ -227,6 +227,20 @@ is



+   -----------------
+   --- Point Casting
+   --
+
+   type point_Collision is
+      record
+         near_Sprite  : gel.Sprite.view;
+         Site_world   : Vector_3;
+      end record;
+
+   function cast_Point (Self : in Item;   Point : in Vector_3) return point_Collision;
+
+
+

   --------------------
   ---  World Mirroring