humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

better visual positioning for cursor

Browse Source
This commit is contained in:
Humza Shahid
2025-09-27 08:14:22 +01:00
parent 2c388899ca
commit 5e9872e4d6
2 changed files with 11 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
fcore/rect.sml
View File

@@ -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

4
fcore/text-builder/text-builder-utils.sml
View File

@@ -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