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

opengl.glyphimpl.texture: Revert to using '()' instead of '[]' for record aggregates.

Browse Source
This commit is contained in:
Rod Kay
2023-05-04 23:21:08 +10:00
parent 660ca343fa
commit 5b2d58c5c8
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
3-mid/opengl/source/lean/text/private/opengl-glyphimpl-texture.adb
View File

@@ -135,26 +135,26 @@ is
the_Quad : aliased constant Quad_t := (NW => (Site => [dx, the_Quad : aliased constant Quad_t := (NW => (Site => [dx,
dy, dy,
0.0], 0.0],
Coords => [S => Self.UV (1).S, Coords => (S => Self.UV (1).S,
T => Self.UV (1).T]), T => Self.UV (1).T)),
SW => (Site => [dx, SW => (Site => [dx,
dy - Real (Self.destHeight), dy - Real (Self.destHeight),
0.0], 0.0],
Coords => [S => Self.UV (1).S, Coords => (S => Self.UV (1).S,
T => Self.UV (2).T]), T => Self.UV (2).T)),
SE => (Site => [dx + Real (Self.destWidth), SE => (Site => [dx + Real (Self.destWidth),
dy - Real (Self.destHeight), dy - Real (Self.destHeight),
0.0], 0.0],
Coords => [S => Self.UV (2).S, Coords => (S => Self.UV (2).S,
T => Self.UV (2).T]), T => Self.UV (2).T)),
NE => (Site => [dx + Real (Self.destWidth), NE => (Site => [dx + Real (Self.destWidth),
dy, dy,
0.0], 0.0],
Coords => [S => Self.UV (2).S, Coords => (S => Self.UV (2).S,
T => Self.UV (1).T]), T => Self.UV (1).T)),
Advance => Self.Advance); Advance => Self.Advance);
begin begin