From f81e37c583a8f5f1cd376db92f942b7acff237c7 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Wed, 20 Dec 2023 18:05:19 +1100 Subject: [PATCH] gel.applet: Cosmetics. --- 4-high/gel/source/applet/gel-applet.adb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/4-high/gel/source/applet/gel-applet.adb b/4-high/gel/source/applet/gel-applet.adb index d7a07a2..84d8d7f 100644 --- a/4-high/gel/source/applet/gel-applet.adb +++ b/4-high/gel/source/applet/gel-applet.adb @@ -766,16 +766,16 @@ is declare 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)), - Real (the_Event.Site (2)), - 1.0]; + Site_window_space : constant Vector_3 := [Real (the_Event.Site (1)), + Real (the_Event.Site (2)), + 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, - To => Site_world_space); + Collision : ray_Collision := the_world_Info.World.cast_Ray (From => the_Camera.Site, + To => Site_world_space); Event : constant gel.Events.sprite_click_down_Event := (mouse_Button => the_Event.Button, world_Site => Site_world_space);