opengl.texture.coordinates: Cosmetics.

This commit is contained in:
Rod Kay
2024-02-03 20:20:17 +11:00
parent a9ab66e6f8
commit 180625eb89

View File

@@ -20,6 +20,7 @@ is
--- Generators --- Generators
-- --
@@ -29,6 +30,7 @@ is
is abstract; is abstract;
type xz_Generator is new coordinate_Generator with type xz_Generator is new coordinate_Generator with
record record
Normalise : texture_Transform_2D; Normalise : texture_Transform_2D;
@@ -39,6 +41,7 @@ is
function to_Coordinates (Self : in xz_Generator; the_Vertices : access Sites) return Coordinates_2D; function to_Coordinates (Self : in xz_Generator; the_Vertices : access Sites) return Coordinates_2D;
type xy_Generator is new coordinate_Generator with type xy_Generator is new coordinate_Generator with
record record
Normalise : texture_Transform_2D; Normalise : texture_Transform_2D;
@@ -49,6 +52,7 @@ is
function to_Coordinates (Self : in xy_Generator; the_Vertices : access Sites) return Coordinates_2D; function to_Coordinates (Self : in xy_Generator; the_Vertices : access Sites) return Coordinates_2D;
type zy_Generator is new coordinate_Generator with type zy_Generator is new coordinate_Generator with
record record
Normalise : texture_Transform_2D; Normalise : texture_Transform_2D;
@@ -59,6 +63,7 @@ is
function to_Coordinates (Self : in zy_Generator; the_Vertices : access Sites) return Coordinates_2D; function to_Coordinates (Self : in zy_Generator; the_Vertices : access Sites) return Coordinates_2D;
type mercator_Generator is new coordinate_Generator with null record; type mercator_Generator is new coordinate_Generator with null record;
overriding overriding