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

opengl.geometry.lit_textured: Cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2024-02-13 17:07:01 +11:00
parent f9c00d89a9
commit 02411c1995
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -103,7 +103,7 @@ is
data_Kind => attribute.GL_FLOAT, data_Kind => attribute.GL_FLOAT,
Stride => lit_textured.Vertex'Size / 8, Stride => lit_textured.Vertex'Size / 8,
Offset => Sample.Normal (1)'Address Offset => Sample.Normal (1)'Address
- Sample.Site (1)'Address, - Sample.Site (1)'Address,
Normalized => False); Normalized => False);
Attribute_3 := new_Attribute (Name => Name_3, Attribute_3 := new_Attribute (Name => Name_3,
@@ -112,7 +112,7 @@ is
data_Kind => attribute.GL_FLOAT, data_Kind => attribute.GL_FLOAT,
Stride => lit_textured.Vertex'Size / 8, Stride => lit_textured.Vertex'Size / 8,
Offset => Sample.Coords.S'Address Offset => Sample.Coords.S'Address
- Sample.Site (1)'Address, - Sample.Site (1)'Address,
Normalized => False); Normalized => False);
Attribute_4 := new_Attribute (Name => Name_4, Attribute_4 := new_Attribute (Name => Name_4,
@@ -121,7 +121,7 @@ is
data_Kind => attribute.GL_FLOAT, data_Kind => attribute.GL_FLOAT,
Stride => lit_textured.Vertex'Size / 8, Stride => lit_textured.Vertex'Size / 8,
Offset => Sample.Shine 'Address Offset => Sample.Shine 'Address
- Sample.Site (1)'Address, - Sample.Site (1)'Address,
Normalized => False); Normalized => False);
the_Program.add (Attribute_1); the_Program.add (Attribute_1);