opengl.model: Add basic texturing subprograms.

2023-05-31 15:22:25 +10:00
parent ce41c9afef
commit 4861f54232
19 changed files with 547 additions and 32 deletions
--- a/3-mid/opengl/source/lean/model/opengl-model-hexagon-lit_textured.adb
+++ b/3-mid/opengl/source/lean/model/opengl-model-hexagon-lit_textured.adb
@@ -114,6 +114,7 @@ is
         end loop;

         the_Geometry.is_Transparent (True);     -- TODO: Do transparency properly.
+         the_Geometry.Model_is       (Self.all'unchecked_Access);

         return the_Geometry;
      end new_Face;
@@ -138,8 +139,6 @@ is
         upper_Face := new_Face (Vertices => the_Vertices);
      end;

-      upper_Face.Model_is (Self.all'unchecked_Access);
-
      return (1 => upper_Face.all'Access);
   end to_GL_Geometries;