nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gel.events: Add space mouse click detection for 2D.

Browse Source
This commit is contained in:
Rod Kay
2024-01-08 09:02:46 +11:00
parent b09bfd1f69
commit 85d2aca897
2 changed files with 37 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
4-high/gel/source/applet/gel-applet.adb
View File

@@ -775,9 +775,6 @@ is
Site_world_space : constant Vector_3 := the_Camera.to_world_Site (Site_window_space);
sprite_Event : constant gel.Events.sprite_click_down_Event := (mouse_Button => the_Event.Button,
world_Site => Site_world_space);
begin
case the_world_Info.World.space_Kind
is
@@ -788,7 +785,12 @@ is
begin
if the_Collision.near_Sprite /= null
then
the_Collision.near_Sprite.emit (sprite_Event);
declare
sprite_clicked_Event : constant gel.Events.sprite_click_down_Event := (mouse_Button => the_Event.Button,
world_Site => Site_world_space);
begin
the_Collision.near_Sprite.emit (sprite_clicked_Event);
end;
end if;
end;
@@ -796,13 +798,26 @@ is
declare
use gel.linear_Algebra_3D;
Intersect : constant Vector_3 := intersect_Line_and_z0_Plane (Line_p1 => the_Camera.Site,
Line_p2 => Site_world_space);
the_Collision : constant point_Collision := the_world_Info.World.cast_Point (Point => Intersect);
Intersect : constant Vector_3 := intersect_Line_and_z0_Plane (Line_p1 => the_Camera.Site,
Line_p2 => Site_world_space);
the_Collision : constant point_Collision := the_world_Info.World.cast_Point (Point => Intersect);
begin
if the_Collision.near_Sprite /= null
then
the_Collision.near_Sprite.emit (sprite_Event);
declare
sprite_clicked_Event : constant gel.Events.sprite_click_down_Event := (mouse_Button => the_Event.Button,
world_Site => Site_world_space);
begin
the_Collision.near_Sprite.emit (sprite_clicked_Event);
end;
else
declare
space_clicked_Event : constant gel.Events.space_click_down_Event := (mouse_Button => the_Event.Button,
world_Site => Site_world_space);
begin
Self.Applet.emit (space_clicked_Event);
end;
end if;
end;
end case;

14
4-high/gel/source/gel-events.ads
View File

@@ -73,6 +73,20 @@ is
end record;
type space_click_down_Event is new lace.Event.item with
record
mouse_Button : gel.Mouse.Button_Id;
world_Site : math.Vector_3;
end record;
type space_click_up_Event is new lace.Event.item with
record
mouse_Button : gel.Mouse.Button_Id;
world_Site : math.Vector_3;
end record;
type sprite_click_down_Event is new lace.Event.item with
record
mouse_Button : gel.Mouse.Button_Id;