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

opengl.model: Use 'default_Shine' for all lit models.

Browse Source
This commit is contained in:
Rod Kay
2024-02-23 18:35:07 +11:00
parent 4717490e43
commit d1f702aab5
3 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
3-mid/opengl/source/lean/model/opengl-model-capsule-lit_textured.adb
View File

@@ -115,7 +115,7 @@ is
ny := tmp;
the_Vertices (i).Site := the_Edges (Each).Fore;
the_Vertices (i).Shine := 0.5;
the_Vertices (i).Shine := default_Shine;
the_Vertices (i).Normal := Normalised ([the_Vertices (i).Site (1),
the_Vertices (i).Site (2),
0.0]);
@@ -124,7 +124,7 @@ is
i := i + 1;
the_Vertices (i).Site := the_Edges (Each).Aft;
the_Vertices (i).Shine := 0.5;
the_Vertices (i).Shine := default_Shine;
the_Vertices (i).Normal := the_Vertices (i - 1).Normal;
the_Vertices (i).Coords := (s => S,
t => 0.0);
@@ -134,7 +134,7 @@ is
end loop;
the_Vertices (i).Site := the_Edges (1).Fore;
the_Vertices (i).Shine := 0.5;
the_Vertices (i).Shine := default_Shine;
the_Vertices (i).Normal := Normalised ([the_Vertices (i).Site (1),
the_Vertices (i).Site (2),
0.0]);
@@ -143,7 +143,7 @@ is
i := i + 1;
the_Vertices (i).Site := the_Edges (1).Aft;
the_Vertices (i).Shine := 0.5;
the_Vertices (i).Shine := default_Shine;
the_Vertices (i).Normal := the_Vertices (i - 1).Normal;
the_Vertices (i).Coords := (s => S,
t => 0.0);
@@ -259,7 +259,7 @@ is
ny := tmp;
the_Vertices (i).Site := the_arch_Edges (each_Hoop) (Each);
the_Vertices (i).Shine := 0.5;
the_Vertices (i).Shine := default_Shine;
the_Vertices (i).Normal := Normalised ([the_Vertices (i).Site (1),
the_Vertices (i).Site (2),
(if is_Fore then the_Vertices (i).Site (3) - L
@@ -292,7 +292,7 @@ is
-- Add pole vertex.
--
the_Vertices (i).Site := pole_Site;
the_Vertices (i).Shine := 0.5;
the_Vertices (i).Shine := default_Shine;
the_Vertices (i).Normal := Normalised (pole_Site);
the_Vertices (i).Coords := (s => 0.5,
t => 1.0);