opengl.geometry: Add multi-texture support to more geometries.

2023-05-07 11:39:57 +10:00
parent 263f7e8095
commit 8d7f78b74f
13 changed files with 418 additions and 95 deletions
--- a/3-mid/opengl/source/lean/shader/opengl-shader.adb
+++ b/3-mid/opengl/source/lean/shader/opengl-shader.adb
@@ -74,6 +74,7 @@ is
   is
      use GL.Pointers,
          C.Strings;
+      use ada.Text_IO;

      use type interfaces.C.char_array;

@@ -84,10 +85,12 @@ is
   begin
      Tasks.check;

-      --  for i in the_Source'Range
-      --  loop
-      --     put (Character (the_Source (i)));
-      --  end loop;
+
+      new_Line (20);
+      for i in the_Source'Range
+      loop
+         put (Character (the_Source (i)));
+      end loop;


      Self.Kind := Kind;