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