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

opengl.variable.uniform: Add a 'sampler2D' uniform variable.

Browse Source
This commit is contained in:
Rod Kay
2023-05-05 01:02:52 +10:00
parent 5b2d58c5c8
commit 1f6d5924c9
3 changed files with 33 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
3-mid/opengl/source/lean/shader/opengl-variable-uniform.ads
View File

@@ -25,13 +25,15 @@ is
-- Actuals
--
type bool is new Variable.uniform.item with private;
type int is new Variable.uniform.item with private;
type float is new Variable.uniform.item with private;
type vec3 is new Variable.uniform.item with private;
type vec4 is new Variable.uniform.item with private;
type mat3 is new Variable.uniform.item with private;
type mat4 is new Variable.uniform.item with private;
type bool is new Variable.uniform.item with private;
type int is new Variable.uniform.item with private;
type float is new Variable.uniform.item with private;
type vec3 is new Variable.uniform.item with private;
type vec4 is new Variable.uniform.item with private;
type mat3 is new Variable.uniform.item with private;
type mat4 is new Variable.uniform.item with private;
type sampler2D is new Variable.uniform.item with private;
procedure Value_is (Self : in bool; Now : in Boolean);
procedure Value_is (Self : in int; Now : in Integer);
@@ -45,16 +47,22 @@ is
private
type Item is abstract new openGL.Variable.item with null record;
type Item is abstract new openGL.Variable.item with null record;
type bool is new Variable.uniform.item with null record;
type int is new Variable.uniform.item with null record;
type float is new Variable.uniform.item with null record;
type bool is new Variable.uniform.item with null record;
type int is new Variable.uniform.item with null record;
type float is new Variable.uniform.item with null record;
type vec3 is new Variable.uniform.item with null record;
type vec4 is new Variable.uniform.item with null record;
type vec3 is new Variable.uniform.item with null record;
type vec4 is new Variable.uniform.item with null record;
type mat3 is new Variable.uniform.item with null record;
type mat4 is new Variable.uniform.item with null record;
type mat3 is new Variable.uniform.item with null record;
type mat4 is new Variable.uniform.item with null record;
type sampler2D is new Variable.uniform.item with null record;
null_Uniform : constant gl.GLint := gl.GLint'Last; -- TODO: Use 'GL.GL_MAX_UNIFORM_LOCATIONS', when GL bindings is updated.
end openGL.Variable.uniform;