opengl.model.polygon.lit_textured: Add 'Face' function.

2025-05-16 19:53:56 +10:00
parent ad4d1229d5
commit 8435439b72
3 changed files with 14 additions and 5 deletions
--- a/3-mid/opengl/source/lean/model/opengl-model-polygon-lit_textured.adb
+++ b/3-mid/opengl/source/lean/model/opengl-model-polygon-lit_textured.adb
@@ -11,7 +11,7 @@ is
   --

   function new_polygon (vertex_Sites : in Vector_2_array;
-                         Face         : in lit_textured.Face) return View
+                         Face         : in Face_t) return View
   is
      Self : constant View := new Item;
   begin
@@ -30,6 +30,13 @@ is
   --- Attributes ---
   ------------------

+   function Face (Self : in Item) return Face_t
+   is
+   begin
+      return Self.Face;
+   end Face;
+
+

   ------------
   -- Texturing