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

opengl.texture.coordinates: Add 'centroid' as part of the result in simple function to compute texture coordinates from a set of vertices.

Browse Source
This commit is contained in:
Rod Kay
2023-11-14 22:22:43 +11:00
parent ae8cee1cce
commit fa02760f9c
3 changed files with 38 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
3-mid/opengl/source/lean/model/opengl-model-polygon-lit_textured.adb
View File

@@ -144,28 +144,28 @@ is
declare
use openGL.Texture.Coordinates;
the_Vertices : Geometry.lit_textured.Vertex_array (1 .. the_Sites'Length + 1);
the_Coords : constant Coordinates_2D := to_Coordinates (the_Sites);
Centroid : Vector_2 := (0.0, 0.0);
the_Vertices : Geometry.lit_textured.Vertex_array (1 .. the_Sites'Length + 1);
Coords_and_Centroid : constant Coords_2D_and_Centroid := to_Coordinates (the_Sites);
-- Centroid : Vector_2 := (0.0, 0.0);
begin
--- Calculate the centroid and min/max of x and y.
--
for i in the_Sites'Range
loop
Centroid := Centroid + the_Sites (i);
end loop;
Centroid := Centroid / Real (the_Sites'Length);
-- for i in the_Sites'Range
-- loop
-- Centroid := Centroid + the_Sites (i);
-- end loop;
--
-- Centroid := Centroid / Real (the_Sites'Length);
for i in the_Sites'Range
loop
the_Vertices (Index_t (i)) := (Site => Vector_3 (the_Sites (i) & 0.0),
Normal => Normal,
Coords => the_Coords (Index_t (i)),
Coords => Coords_and_Centroid.Coords (Index_t (i)),
Shine => default_Shine);
end loop;
the_Vertices (the_Vertices'Last) := (Site => Vector_3 (Centroid & 0.0),
the_Vertices (the_Vertices'Last) := (Site => Vector_3 (Coords_and_Centroid.Centroid & 0.0),
Normal => Normal,
Coords => (0.5, 0.5),
Shine => default_Shine);
@@ -173,7 +173,7 @@ is
upper_Face := new_Face (Vertices => the_Vertices);
end;
return (1 => upper_Face.all'Access);
return [1 => upper_Face.all'Access];
end to_GL_Geometries;