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

opengl.geometry.lit_textured_x2: Tidy.

Browse Source
This commit is contained in:
Rod Kay
2023-05-07 08:27:59 +10:00
parent 5daf101be3
commit 263f7e8095
1 changed files with 11 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -36,20 +36,17 @@ is
Name_1 : constant String := "Site"; Name_1 : constant String := "Site";
Name_2 : constant String := "Normal"; Name_2 : constant String := "Normal";
Name_3 : constant String := "Coords"; Name_3 : constant String := "Coords";
-- Name_4 : constant String := "Coords_2"; Name_4 : constant String := "Shine";
Name_5 : constant String := "Shine";
Attribute_1_Name : aliased C.char_array := C.to_C (Name_1); Attribute_1_Name : aliased C.char_array := C.to_C (Name_1);
Attribute_2_Name : aliased C.char_array := C.to_C (Name_2); Attribute_2_Name : aliased C.char_array := C.to_C (Name_2);
Attribute_3_Name : aliased C.char_array := C.to_C (Name_3); Attribute_3_Name : aliased C.char_array := C.to_C (Name_3);
-- Attribute_4_Name : aliased C.char_array := C.to_C (Name_4); Attribute_4_Name : aliased C.char_array := C.to_C (Name_4);
Attribute_5_Name : aliased C.char_array := C.to_C (Name_5);
Attribute_1_Name_ptr : aliased constant C.strings.chars_ptr := C.strings.to_chars_ptr (Attribute_1_Name'Access); Attribute_1_Name_ptr : aliased constant C.strings.chars_ptr := C.strings.to_chars_ptr (Attribute_1_Name'Access);
Attribute_2_Name_ptr : aliased constant C.strings.chars_ptr := C.strings.to_chars_ptr (Attribute_2_Name'Access); Attribute_2_Name_ptr : aliased constant C.strings.chars_ptr := C.strings.to_chars_ptr (Attribute_2_Name'Access);
Attribute_3_Name_ptr : aliased constant C.strings.chars_ptr := C.strings.to_chars_ptr (Attribute_3_Name'Access); Attribute_3_Name_ptr : aliased constant C.strings.chars_ptr := C.strings.to_chars_ptr (Attribute_3_Name'Access);
-- Attribute_4_Name_ptr : aliased constant C.strings.chars_ptr := C.strings.to_chars_ptr (Attribute_4_Name'Access); Attribute_4_Name_ptr : aliased constant C.strings.chars_ptr := C.strings.to_chars_ptr (Attribute_4_Name'Access);
Attribute_5_Name_ptr : aliased constant C.strings.chars_ptr := C.strings.to_chars_ptr (Attribute_5_Name'Access);
--------- ---------
@@ -78,8 +75,7 @@ is
Attribute_1 : Attribute.view; Attribute_1 : Attribute.view;
Attribute_2 : Attribute.view; Attribute_2 : Attribute.view;
Attribute_3 : Attribute.view; Attribute_3 : Attribute.view;
-- Attribute_4 : Attribute.view; Attribute_4 : Attribute.view;
Attribute_5 : Attribute.view;
white_Image : constant Image := [1 .. 2 => [1 .. 2 => +White]]; white_Image : constant Image := [1 .. 2 => [1 .. 2 => +White]];
@@ -122,17 +118,8 @@ is
- 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,
-- gl_Location => the_Program.attribute_Location (Name_4), gl_Location => the_Program.attribute_Location (Name_4),
-- Size => 2,
-- data_Kind => attribute.GL_FLOAT,
-- Stride => lit_textured_x2.Vertex'Size / 8,
-- Offset => Sample.Coords_2.S'Address
-- - Sample.Site (1)'Address,
-- Normalized => False);
Attribute_5 := new_Attribute (Name => Name_5,
gl_Location => the_Program.attribute_Location (Name_5),
Size => 1, Size => 1,
data_Kind => attribute.GL_FLOAT, data_Kind => attribute.GL_FLOAT,
Stride => lit_textured_x2.Vertex'Size / 8, Stride => lit_textured_x2.Vertex'Size / 8,
@@ -143,8 +130,7 @@ is
the_Program.add (Attribute_1); the_Program.add (Attribute_1);
the_Program.add (Attribute_2); the_Program.add (Attribute_2);
the_Program.add (Attribute_3); the_Program.add (Attribute_3);
-- the_Program.add (Attribute_4); the_Program.add (Attribute_4);
the_Program.add (Attribute_5);
glBindAttribLocation (program => the_Program.gl_Program, glBindAttribLocation (program => the_Program.gl_Program,
index => the_Program.Attribute (named => Name_1).gl_Location, index => the_Program.Attribute (named => Name_1).gl_Location,
@@ -161,14 +147,9 @@ is
name => +Attribute_3_Name_ptr); name => +Attribute_3_Name_ptr);
Errors.log; Errors.log;
-- glBindAttribLocation (program => the_Program.gl_Program,
-- index => the_Program.Attribute (named => Name_4).gl_Location,
-- name => +Attribute_4_Name_ptr);
-- Errors.log;
glBindAttribLocation (program => the_Program.gl_Program, glBindAttribLocation (program => the_Program.gl_Program,
index => the_Program.Attribute (named => Name_5).gl_Location, index => the_Program.Attribute (named => Name_4).gl_Location,
name => +Attribute_5_Name_ptr); name => +Attribute_4_Name_ptr);
Errors.log; Errors.log;
end; end;
end if; end if;