nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

opengl: Work on multi-texturing.

Browse Source
This commit is contained in:
Rod Kay
2023-05-15 15:01:32 +10:00
parent 1beb8e1140
commit 139cb01643
12 changed files with 405 additions and 185 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured_x2.adb
View File

@@ -298,6 +298,7 @@ is
end Texture_is;
overriding
function Texture (Self : in Item) return openGL.Texture.Object
is
@@ -313,8 +314,8 @@ 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;
Self.Textures.Textures (1).Fade := Self.Model.Fade (which => 1);
Self.Textures.Textures (2).Fade := Self.Model.Fade (which => 2);
enable (Self.Textures, Self.Program);