diff --git a/fcore/rect.sml b/fcore/rect.sml index 1a0e13e..c9dfebb 100644 --- a/fcore/rect.sml +++ b/fcore/rect.sml @@ -14,28 +14,22 @@ struct #[ xToNdc (xOffset, 0.000000000000000, scale, halfWidth), yToNdc (yOffset, 13.000000000000000, scale, halfHeight), -z, -r, g, b, -xToNdc (xOffset, 6.000000000000000, scale, halfWidth), +z, r, g, b, +xToNdc (xOffset, 7.000000000000000, scale, halfWidth), yToNdc (yOffset, 13.000000000000000, scale, halfHeight), -z, -r, g, b, +z, r, g, b, xToNdc (xOffset, 0.000000000000000, scale, halfWidth), yToNdc (yOffset, 0.000000000000000, scale, halfHeight), -z, -r, g, b, +z, r, g, b, xToNdc (xOffset, 0.000000000000000, scale, halfWidth), yToNdc (yOffset, 0.000000000000000, scale, halfHeight), -z, -r, g, b, -xToNdc (xOffset, 6.000000000000000, scale, halfWidth), +z, r, g, b, +xToNdc (xOffset, 7.000000000000000, scale, halfWidth), yToNdc (yOffset, 13.000000000000000, scale, halfHeight), -z, -r, g, b, -xToNdc (xOffset, 6.000000000000000, scale, halfWidth), +z, r, g, b, +xToNdc (xOffset, 7.000000000000000, scale, halfWidth), yToNdc (yOffset, 0.000000000000000, scale, halfHeight), -z, -r, g, b +z, r, g, b ] end end diff --git a/fcore/text-builder/text-builder-utils.sml b/fcore/text-builder/text-builder-utils.sml index 5479e8f..c11f81f 100644 --- a/fcore/text-builder/text-builder-utils.sml +++ b/fcore/text-builder/text-builder-utils.sml @@ -150,7 +150,7 @@ struct (* different functions to make vectors of different things we want to draw. *) fun makeCursor (posX, posY, env: env_data) = Rect.lerp - ( Real32.fromInt (posX - 1) + ( Real32.fromInt (posX - 2) , Real32.fromInt posY , #cursorZ env , TC.scale @@ -163,7 +163,7 @@ struct fun makeHighlight (posX, posY, env: env_data) = Rect.lerp - ( Real32.fromInt (posX - 1) + ( Real32.fromInt (posX - 2) , Real32.fromInt posY , #highlightZ env , TC.scale