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

2023-05-05 01:02:52 +10:00
parent 5b2d58c5c8
commit 1f6d5924c9
3 changed files with 33 additions and 15 deletions
--- a/3-mid/opengl/source/lean/shader/opengl-program.adb
+++ b/3-mid/opengl/source/lean/shader/opengl-program.adb
@@ -265,6 +265,15 @@ is
   end uniform_Variable;


+   function uniform_Variable (Self : access Item'Class;   Named : in String) return Variable.uniform.sampler2D
+   is
+      the_Variable : Variable.uniform.sampler2D;
+   begin
+      the_Variable.define (Self, Named);
+      return the_Variable;
+   end uniform_Variable;
+
+
   --------------
   --  Operations
   --