From 83224518981d3ec65b4ffb18d3adfc7bda9cf9ae Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Fri, 4 Apr 2025 19:12:54 +1100 Subject: [PATCH] Cosmetics. --- 4-high/gel/source/forge/gel-forge.adb | 2 +- 4-high/gel/source/world/gel-world-client.adb | 2 +- 4-high/gel/source/world/gel-world.adb | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/4-high/gel/source/forge/gel-forge.adb b/4-high/gel/source/forge/gel-forge.adb index fdf88d5..14d9fc9 100644 --- a/4-high/gel/source/forge/gel-forge.adb +++ b/4-high/gel/source/forge/gel-forge.adb @@ -164,7 +164,7 @@ is else the_graphics_Model := openGL.Model.circle.lit_textured.new_Circle (Radius, Face => (Fades => [1 => 0.0, others => <>], - texture_Applies => [1 => True, others => <>], + texture_Applies => [1 => True, others => <>], Textures => [1 => Texture, others => <>], texture_Count => 1, Animation => null)).all'Access; diff --git a/4-high/gel/source/world/gel-world-client.adb b/4-high/gel/source/world/gel-world-client.adb index 8ef0a7d..2c91672 100644 --- a/4-high/gel/source/world/gel-world-client.adb +++ b/4-high/gel/source/world/gel-world-client.adb @@ -564,7 +564,7 @@ is Self.graphics_Models, Self. physics_Models, gel.World.view (Self)); - log ("*** gel.world.client.is_a_Mirror.add sprite ~ " & the_Sprite.Name'Image); + -- log ("*** gel.world.client.is_a_Mirror.add sprite ~ " & the_Sprite.Name'Image); Self.add (the_Sprite); end loop; end; diff --git a/4-high/gel/source/world/gel-world.adb b/4-high/gel/source/world/gel-world.adb index d5c3851..94ab408 100644 --- a/4-high/gel/source/world/gel-world.adb +++ b/4-high/gel/source/world/gel-world.adb @@ -810,7 +810,7 @@ is -- Emit a new model event. -- - log ("gel.World.add ~ emit new graphics model event"); + -- log ("gel.World.add ~ emit new graphics model event"); declare the_Event : remote.World.new_graphics_model_Event; @@ -838,7 +838,7 @@ is -- Emit a new model event. -- - log ("gel.World.add ~ emit new physics model event"); + -- log ("gel.World.add ~ emit new physics model event"); declare the_Event : remote.World.new_physics_model_Event;