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

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

@@ -45,7 +45,6 @@ is
--------------
-- Attributes
--
@@ -112,7 +111,7 @@ is
function Fade (Self : in Item; Which : texture_Set.texture_ID := 1) return texture_Set.fade_Level
is
begin
raise program_Error with "Geometry has no texture.";
raise Error with "Geometry has no texture.";
return texture_Set.fade_Level'Last;
end Fade;
@@ -121,7 +120,7 @@ is
function Texture (Self : in Item; Which : in texture_Set.texture_ID := 1) return openGL.Texture.Object
is
begin
raise program_Error with "Geometry has no texture.";
raise Error with "Geometry has no texture.";
return openGL.Texture.null_Object;
end Texture;
@@ -130,7 +129,7 @@ is
function texture_Applied (Self : in Item; Which : in texture_Set.texture_ID := 1) return Boolean
is
begin
raise program_Error with "Geometry has no texture.";
raise Error with "Geometry has no texture.";
return False;
end texture_Applied;
@@ -139,7 +138,7 @@ is
function Tiling (Self : in Item; Which : in texture_Set.texture_ID := 1) return texture_Set.Tiling
is
begin
raise program_Error with "Geometry has no texture.";
raise Error with "Geometry has no texture.";
return (S => 0.0,
T => 0.0);
end Tiling;
@@ -162,7 +161,7 @@ is
function Bounds (self : in Item'Class) return openGL.Bounds
function Bounds (Self : in Item'Class) return openGL.Bounds
is
begin
return Self.Bounds;
@@ -197,7 +196,6 @@ is
--------------
-- Operations
--
@@ -232,7 +230,6 @@ is
-----------
-- Normals
--
@@ -309,6 +306,7 @@ is
pragma Unreferenced (facet_Count_in);
----------
-- Facets
--
@@ -329,6 +327,7 @@ is
-- 'Facets_of' returns all non-redundant facets.
function any_Facets_of (face_Kind : in primitive.facet_Kind;
Indices : in any_Indices) return access Facets
is
@@ -361,9 +360,11 @@ is
is
when Triangles
| triangle_Fan =>
the_Facets (Count) := [P1, P2, P3];
when triangle_Strip =>
if Each mod 2 = 0
then -- Is an even facet.
the_Facets (Count) := [P1, P3, P2];
@@ -388,6 +389,7 @@ is
end any_Facets_of;
function Facets_of is new any_Facets_of (Index_t,
Indices);
pragma Unreferenced (Facets_of);
@@ -480,7 +482,7 @@ is
free (the_Facets);
free (the_facet_Normals);
return the_Normals.all'Unchecked_Access;
return the_Normals.all'unchecked_Access;
end any_Normals_of;
@@ -537,7 +539,6 @@ is
---------------
-- Transparency
--