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-lit_textured_x2.adb
+++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured_x2.adb
@@ -5,6 +5,7 @@ with
     openGL.Attribute,
     openGL.Texture,
     openGL.Palette,
+     openGL.Model,
     openGL.Tasks,
     openGL.Errors,

@@ -312,6 +313,10 @@ is
   is
      use openGL.Geometry.texturing;
   begin
+      Self.Textures.Textures (1).Fade := Self.Model.Fade_1;
+      Self.Textures.Textures (2).Fade := Self.Model.Fade_2;
+
+
      enable (Self.Textures, Self.Program);
   end enable_Texture;