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

opengl: Cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2025-10-22 14:11:39 +11:00
parent 3e11a52f5d
commit 50821bb787
60 changed files with 304 additions and 520 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
3-mid/opengl/source/lean/opengl-visual.adb
View File

@@ -13,7 +13,6 @@ is
is
begin
return new Visual.item' (Model => Model,
model_Transform => Identity_4x4,
camera_Transform => Identity_4x4,
Transform => Identity_4x4,
mvp_Transform => Identity_4x4,
@@ -66,7 +65,7 @@ is
function is_Terrain (Self : in Item) return Boolean
function is_Terrain (Self : in Item) return Boolean
is
begin
return Self.is_Terrain;
@@ -139,21 +138,6 @@ is
end mvp_Transform_is;
function model_Transform (Self : in Item) return Matrix_4x4
is
begin
return Self.model_Transform;
end model_Transform;
procedure model_Transform_is (Self : in out Item; Now : in Matrix_4x4)
is
begin
Self.model_Transform := Now;
end model_Transform_is;
function camera_Transform (Self : in Item) return Matrix_4x4
is
begin
@@ -174,7 +158,6 @@ is
use linear_Algebra_3d;
begin
set_Rotation (Self.Transform, Now);
-- set_Rotation (Self.model_Transform, Now);
end Spin_is;
@@ -183,7 +166,6 @@ is
use linear_Algebra_3d;
begin
return get_Rotation (Self.Transform);
-- return get_Rotation (Self.model_Transform);
end Spin_of;
@@ -193,7 +175,6 @@ is
use linear_Algebra_3d;
begin
set_Translation (Self.Transform, Now);
-- set_Translation (Self.model_Transform, Now);
end Site_is;
@@ -202,7 +183,6 @@ is
use linear_Algebra_3d;
begin
return get_Translation (Self.Transform);
-- return get_Translation (Self.model_Transform);
end Site_of;