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

opengl.geometry.texturing: Add 'Mixin' generic.

Browse Source
This commit is contained in:
Rod Kay
2023-05-31 10:54:59 +10:00
parent bb6df0ba31
commit ec4a9b357a
6 changed files with 282 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -103,6 +103,15 @@ is
function Fade (Self : in Item; Which : texture_Set.texture_ID) return texture_Set.fade_Level
is
begin
raise program_Error with "Geometry has no texture.";
return texture_Set.fade_Level'Last;
end Fade;
function Texture (Self : in Item) return openGL.Texture.Object
is
begin
@@ -112,6 +121,15 @@ is
function Texture (Self : in Item; Which : in texture_Set.texture_ID) return openGL.Texture.Object
is
begin
raise program_Error with "Geometry has no texture.";
return openGL.Texture.null_Object;
end Texture;
procedure Program_is (Self : in out Item; Now : in openGL.Program.view)
is
begin