opengl: Work on multi-texturing.

2023-05-09 18:04:18 +10:00
parent d3e4119172
commit 1beb8e1140
12 changed files with 212 additions and 26 deletions
--- a/3-mid/opengl/source/lean/geometry/opengl-geometry.adb
+++ b/3-mid/opengl/source/lean/geometry/opengl-geometry.adb
@@ -50,6 +50,15 @@ is
   --  Attributes
   --

+   procedure Model_is (Self : in out Item;   Now : in Model_view)
+   is
+   begin
+      Self.Model := Now;
+   end Model_is;
+
+
+
+
   function Label (Self : in Item'Class) return String
   is
   begin