From 180625eb8971acb768fc1a905b945d5bdbddf78b Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Sat, 3 Feb 2024 20:20:17 +1100 Subject: [PATCH] opengl.texture.coordinates: Cosmetics. --- 3-mid/opengl/source/lean/opengl-texture-coordinates.ads | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/3-mid/opengl/source/lean/opengl-texture-coordinates.ads b/3-mid/opengl/source/lean/opengl-texture-coordinates.ads index a930031..616def8 100644 --- a/3-mid/opengl/source/lean/opengl-texture-coordinates.ads +++ b/3-mid/opengl/source/lean/opengl-texture-coordinates.ads @@ -20,6 +20,7 @@ is + --- Generators -- @@ -29,6 +30,7 @@ is is abstract; + type xz_Generator is new coordinate_Generator with record Normalise : texture_Transform_2D; @@ -39,6 +41,7 @@ is function to_Coordinates (Self : in xz_Generator; the_Vertices : access Sites) return Coordinates_2D; + type xy_Generator is new coordinate_Generator with record Normalise : texture_Transform_2D; @@ -49,6 +52,7 @@ is function to_Coordinates (Self : in xy_Generator; the_Vertices : access Sites) return Coordinates_2D; + type zy_Generator is new coordinate_Generator with record Normalise : texture_Transform_2D; @@ -59,6 +63,7 @@ is function to_Coordinates (Self : in zy_Generator; the_Vertices : access Sites) return Coordinates_2D; + type mercator_Generator is new coordinate_Generator with null record; overriding