From a827eab12aa76cc199f3597c89789f960f12489a Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Thu, 25 Sep 2025 15:29:59 +1000 Subject: [PATCH] gel.forge: Add texture 'Objects' in 'Details' aggregates. --- 4-high/gel/source/forge/gel-forge.adb | 2 ++ 1 file changed, 2 insertions(+) diff --git a/4-high/gel/source/forge/gel-forge.adb b/4-high/gel/source/forge/gel-forge.adb index 2b0673f..19f9e0a 100644 --- a/4-high/gel/source/forge/gel-forge.adb +++ b/4-high/gel/source/forge/gel-forge.adb @@ -167,6 +167,7 @@ is texture_Details => (Fades => [1 => 0.0, others => <>], texture_Applies => [1 => True, others => <>], Textures => [1 => Texture, others => <>], + Objects => [others => <>], texture_Count => 1, texture_Tilings => [others => (S => 1.0, T => 1.0)], Animation => null)).all'Access; @@ -222,6 +223,7 @@ is the_graphics_Model := openGL.Model.polygon.lit_textured.new_Polygon (vertex_Sites => openGL.Vector_2_array (Vertices), texture_Details => (Fades => [1 => 0.0, others => <>], Textures => [1 => Texture, others => <>], + Objects => [others => <>], texture_Count => 1, texture_Tilings => texture_Tiling, texture_Applies => [others => True],