opengl: Add tiling for multi-textures.

2025-09-24 12:14:44 +10:00
parent 9469acaf91
commit 4dc7e235f0
20 changed files with 274 additions and 62 deletions
--- a/3-mid/opengl/source/lean/geometry/opengl-geometry.adb
+++ b/3-mid/opengl/source/lean/geometry/opengl-geometry.adb
@@ -136,6 +136,17 @@ is



+   function Tiling (Self : in     Item;   Which : in texture_Set.texture_ID := 1) return texture_Set.Tiling
+   is
+   begin
+      raise program_Error with "Geometry has no texture.";
+      return (S => 0.0,
+              T => 0.0);
+   end Tiling;
+
+
+
+
   procedure Program_is  (Self : in out Item;   Now : in openGL.Program.view)
   is
   begin