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

gel.applet: Cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2023-12-20 18:05:19 +11:00
parent 7af505bc05
commit f81e37c583
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -766,16 +766,16 @@ is
declare declare
use gel.World; use gel.World;
the_Camera : constant gel.Camera.view := the_world_Info.Cameras.first_Element; the_Camera : constant gel.Camera.view := the_world_Info.Cameras.first_Element;
Site_window_space : constant Vector_3 := [Real (the_Event.Site (1)), Site_window_space : constant Vector_3 := [Real (the_Event.Site (1)),
Real (the_Event.Site (2)), Real (the_Event.Site (2)),
1.0]; 1.0];
Site_world_space : constant Vector_3 := the_Camera.to_world_Site (Site_window_space); Site_world_space : constant Vector_3 := the_Camera.to_world_Site (Site_window_space);
Collision : ray_Collision := the_world_Info.World.cast_Ray (From => the_Camera.Site, Collision : ray_Collision := the_world_Info.World.cast_Ray (From => the_Camera.Site,
To => Site_world_space); To => Site_world_space);
Event : constant gel.Events.sprite_click_down_Event := (mouse_Button => the_Event.Button, Event : constant gel.Events.sprite_click_down_Event := (mouse_Button => the_Event.Button,
world_Site => Site_world_space); world_Site => Site_world_space);