From 5b2d58c5c8b3cb7a5024cef0052984893e36a43e Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Thu, 4 May 2023 23:21:08 +1000 Subject: [PATCH] opengl.glyphimpl.texture: Revert to using '()' instead of '[]' for record aggregates. --- .../text/private/opengl-glyphimpl-texture.adb | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/3-mid/opengl/source/lean/text/private/opengl-glyphimpl-texture.adb b/3-mid/opengl/source/lean/text/private/opengl-glyphimpl-texture.adb index 9251d49..9bbfabb 100644 --- a/3-mid/opengl/source/lean/text/private/opengl-glyphimpl-texture.adb +++ b/3-mid/opengl/source/lean/text/private/opengl-glyphimpl-texture.adb @@ -135,26 +135,26 @@ is the_Quad : aliased constant Quad_t := (NW => (Site => [dx, dy, 0.0], - Coords => [S => Self.UV (1).S, - T => Self.UV (1).T]), + Coords => (S => Self.UV (1).S, + T => Self.UV (1).T)), SW => (Site => [dx, dy - Real (Self.destHeight), 0.0], - Coords => [S => Self.UV (1).S, - T => Self.UV (2).T]), + Coords => (S => Self.UV (1).S, + T => Self.UV (2).T)), SE => (Site => [dx + Real (Self.destWidth), dy - Real (Self.destHeight), 0.0], - Coords => [S => Self.UV (2).S, - T => Self.UV (2).T]), + Coords => (S => Self.UV (2).S, + T => Self.UV (2).T)), NE => (Site => [dx + Real (Self.destWidth), dy, 0.0], - Coords => [S => Self.UV (2).S, - T => Self.UV (1).T]), + Coords => (S => Self.UV (2).S, + T => Self.UV (1).T)), Advance => Self.Advance); begin