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

opengl: Cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2025-09-20 12:02:50 +10:00
parent e950ad5383
commit b679ac4bf5
7 changed files with 3 additions and 295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
3-mid/opengl/source/lean/model/opengl-model-texturing.ads
View File

@@ -1,7 +1,5 @@
with
openGL.Variable.uniform,
openGL.texture_Set,
openGL.Program;
openGL.texture_Set;
package openGL.Model.texturing
@@ -9,40 +7,6 @@ package openGL.Model.texturing
-- Provides texturing support for models.
--
is
--- Uniforms
--
type texture_fade_Uniform_pair is
record
texture_Uniform : openGL.Variable.uniform.sampler2D;
fade_Uniform : openGL.Variable.uniform.float;
end record;
type texture_fade_Uniform_pairs is array (openGL.texture_Set.texture_Id
range 1 .. openGL.texture_Set.max_Textures) of texture_fade_Uniform_pair;
type Uniforms is
record
Textures : texture_fade_Uniform_pairs;
Count : openGL.Variable.uniform.int;
end record;
--- Operations
--
procedure enable (for_Model : in openGL.Model.view;
Uniforms : in texturing.Uniforms;
texture_Set : in openGL.texture_Set.Item);
procedure create (Uniforms : out texturing.Uniforms;
for_Program : in openGL.Program.view);
-------------
--- Mixin ---
-------------