From 02411c1995ee19af18902d6717e55c1a963a9951 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Tue, 13 Feb 2024 17:07:01 +1100 Subject: [PATCH] opengl.geometry.lit_textured: Cosmetics. --- .../source/lean/geometry/opengl-geometry-lit_textured.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.adb b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.adb index 65107a1..f1f1714 100644 --- a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.adb +++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_textured.adb @@ -103,7 +103,7 @@ is data_Kind => attribute.GL_FLOAT, Stride => lit_textured.Vertex'Size / 8, Offset => Sample.Normal (1)'Address - - Sample.Site (1)'Address, + - Sample.Site (1)'Address, Normalized => False); Attribute_3 := new_Attribute (Name => Name_3, @@ -112,7 +112,7 @@ is data_Kind => attribute.GL_FLOAT, Stride => lit_textured.Vertex'Size / 8, Offset => Sample.Coords.S'Address - - Sample.Site (1)'Address, + - Sample.Site (1)'Address, Normalized => False); Attribute_4 := new_Attribute (Name => Name_4, @@ -121,7 +121,7 @@ is data_Kind => attribute.GL_FLOAT, Stride => lit_textured.Vertex'Size / 8, Offset => Sample.Shine 'Address - - Sample.Site (1)'Address, + - Sample.Site (1)'Address, Normalized => False); the_Program.add (Attribute_1);