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

opengl.model: Cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2025-09-07 07:28:42 +10:00
parent b766155987
commit 65a5e2c6af
4 changed files with 0 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

105
3-mid/opengl/source/lean/model/opengl-model-polygon-lit_textured.adb
View File

@@ -10,20 +10,6 @@ is
--- Forge
--
-- function new_polygon (vertex_Sites : in Vector_2_array;
-- Face : in Face_t) return View
-- is
-- Self : constant View := new Item;
-- begin
-- Self.vertex_Sites (1 .. vertex_Sites'Length) := vertex_Sites;
-- Self.vertex_Count := vertex_Sites'Length;
--
-- Self.Face := Face;
--
-- return Self;
-- end new_polygon;
function new_polygon (vertex_Sites : in Vector_2_array;
texture_Details : in texture_Set.Details) return View
is
@@ -39,97 +25,6 @@ is
------------------
--- Attributes ---
------------------
-- function texture_Details (Self : in Item) return texture_Set.Details
-- is
-- begin
-- return Self.texture_Details;
-- end texture_Details;
------------
-- Texturing
--
-- overriding
-- procedure Fade_is (Self : in out Item; Which : in texture_Set.texture_Id;
-- Now : in texture_Set.fade_Level)
-- is
-- begin
-- Self.Face.texture_Details.Fades (which) := Now;
-- end Fade_is;
--
--
--
-- overriding
-- function Fade (Self : in Item; Which : in texture_Set.texture_Id) return texture_Set.fade_Level
-- is
-- begin
-- return Self.Face.texture_Details.Fades (which);
-- end Fade;
--
--
--
-- procedure Texture_is (Self : in out Item; Which : in texture_Set.texture_Id;
-- Now : in openGL.asset_Name)
-- is
-- begin
-- Self.Face.texture_Details.Textures (Positive (which)) := Now;
-- end Texture_is;
--
--
--
--
-- overriding
-- function texture_Count (Self : in Item) return Natural
-- is
-- begin
-- return Self.Face.texture_Details.texture_Count;
-- end texture_Count;
--
--
--
-- overriding
-- function texture_Applied (Self : in Item; Which : in texture_Set.texture_Id) return Boolean
-- is
-- begin
-- return Self.Face.texture_Details.texture_Applies (Which);
-- end texture_Applied;
--
--
--
-- overriding
-- procedure texture_Applied_is (Self : in out Item; Which : in texture_Set.texture_Id;
-- Now : in Boolean)
-- is
-- begin
-- Self.Face.texture_Details.texture_Applies (Which) := Now;
-- end texture_Applied_is;
--
--
--
--
-- overriding
-- procedure animate (Self : in out Item)
-- is
-- use type texture_Set.Animation_view;
-- begin
-- if Self.Face.texture_Details.Animation = null
-- then
-- return;
-- end if;
--
-- texture_Set.animate (Self.Face.texture_Details.Animation.all,
-- Self.Face.texture_Details.texture_Applies);
-- end animate;
--------------------
--- to_GL_Geometries
--

50
3-mid/opengl/source/lean/model/opengl-model-polygon-lit_textured.ads
View File

@@ -15,69 +15,21 @@ is
type View is access all Item'Class;
--------
--- Face
--
-- type Face_t is
-- record
-- texture_Details : texture_Set.Details;
-- end record;
---------
--- Forge
--
-- function new_Polygon (vertex_Sites : in Vector_2_array;
-- Face : in lit_textured.Face_t) return View;
function new_Polygon (vertex_Sites : in Vector_2_array;
texture_Details : in texture_Set.Details) return View;
--------------
--- Attributes
--
-- function Face (Self : in Item) return Face_t;
-- overriding
-- function texture_Details (Self : in Item) return texture_Set.Details;
overriding
function to_GL_Geometries (Self : access Item; Textures : access Texture.name_Map_of_texture'Class;
Fonts : in Font.font_id_Map_of_font) return Geometry.views;
------------
-- Texturing
--
-- overriding
-- function Fade (Self : in Item; Which : in texture_Set.texture_Id) return texture_Set.fade_Level;
--
-- overriding
-- procedure Fade_is (Self : in out Item; Which : in texture_Set.texture_Id;
-- Now : in texture_Set.fade_Level);
--
-- procedure Texture_is (Self : in out Item; Which : in texture_Set.texture_Id;
-- Now : in asset_Name);
--
-- overriding
-- function texture_Count (Self : in Item) return Natural;
--
--
-- overriding
-- function texture_Applied (Self : in Item; Which : in texture_Set.texture_Id) return Boolean;
--
-- overriding
-- procedure texture_Applied_is (Self : in out Item; Which : in texture_Set.texture_Id;
-- Now : in Boolean);
--
-- overriding
-- procedure animate (Self : in out Item);
private
@@ -85,8 +37,6 @@ private
record
vertex_Sites : Vector_2_array (1 .. 8);
vertex_Count : Positive;
-- Face : lit_textured.Face_t;
end record;

3
3-mid/opengl/source/lean/model/opengl-model-texturing.adb
View File

@@ -1,11 +1,8 @@
with
-- openGL.Model,
GL.lean,
GL.Binding,
ada.Strings.fixed;
-- with ada.Text_IO;
package body openGL.Model.texturing
is

5
3-mid/opengl/source/lean/model/opengl-model-texturing.ads
View File

@@ -4,13 +4,11 @@ with
openGL.Program;
-- private
package openGL.Model.texturing
--
-- Provides texturing support for models.
--
is
--- Uniforms
--
@@ -40,13 +38,11 @@ is
texture_Set : in openGL.texture_Set.Item);
procedure create (Uniforms : out texturing.Uniforms;
for_Program : in openGL.Program.view);
-------------
--- Mixin ---
-------------
@@ -98,5 +94,4 @@ is
end Mixin;
end openGL.Model.texturing;