gel.demos: Update code to use new openGL updates.

2025-09-14 10:11:21 +10:00
parent d357ce109b
commit 5afee0e2e4
41 changed files with 677 additions and 347 deletions
--- a/3-mid/opengl/source/lean/shader/opengl-shader.adb
+++ b/3-mid/opengl/source/lean/shader/opengl-shader.adb
@@ -137,8 +137,8 @@ is
   is
      the_Source : aliased constant C.char_array := to_C_char_array (shader_Filename);
   begin
-      put_Line ("SHADER NAME: " & shader_Filename);
-      put_Line (interfaces.C.to_Ada (the_Source));
+      --  put_Line ("SHADER NAME: " & shader_Filename);
+      --  put_Line (interfaces.C.to_Ada (the_Source));

      create_Shader (Self, Kind, the_Source);
   end define;