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

gel.forge: Add texture 'Objects' in 'Details' aggregates.

Browse Source
This commit is contained in:
Rod Kay
2025-09-25 15:29:59 +10:00
parent 914c096e9f
commit a827eab12a
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
4-high/gel/source/forge/gel-forge.adb
View File

@@ -167,6 +167,7 @@ is
texture_Details => (Fades => [1 => 0.0, others => <>], texture_Details => (Fades => [1 => 0.0, others => <>],
texture_Applies => [1 => True, others => <>], texture_Applies => [1 => True, others => <>],
Textures => [1 => Texture, others => <>], Textures => [1 => Texture, others => <>],
Objects => [others => <>],
texture_Count => 1, texture_Count => 1,
texture_Tilings => [others => (S => 1.0, T => 1.0)], texture_Tilings => [others => (S => 1.0, T => 1.0)],
Animation => null)).all'Access; 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), the_graphics_Model := openGL.Model.polygon.lit_textured.new_Polygon (vertex_Sites => openGL.Vector_2_array (Vertices),
texture_Details => (Fades => [1 => 0.0, others => <>], texture_Details => (Fades => [1 => 0.0, others => <>],
Textures => [1 => Texture, others => <>], Textures => [1 => Texture, others => <>],
Objects => [others => <>],
texture_Count => 1, texture_Count => 1,
texture_Tilings => texture_Tiling, texture_Tilings => texture_Tiling,
texture_Applies => [others => True], texture_Applies => [others => True],