humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
6b91d64fc3f4e5cc477e9efebd4a0ba20924b731
sml-projects/shf/fcore/rect.sml

36 lines
1.2 KiB
Standard ML
Raw Normal View History

create new rect which is adapted to new text, and use it in text-builder.sml
2025-08-18 02:39:56 +01:00
structure Rect =
replace text-builder.sml's 'buildCursor' function with a new 'Rect.lerp' function (which is in fcore/rect.sml)
2024-11-15 21:14:43 +00:00
struct
create new rect which is adapted to new text, and use it in text-builder.sml
2025-08-18 02:39:56 +01:00
fun xToNdc (xOffset, xpos, scale, halfWidth) =
((xpos * scale + xOffset) - halfWidth) / halfWidth
fun yToNdc (yOffset, ypos, scale, halfHeight) =
~(((ypos * scale + yOffset) - halfHeight) / halfHeight)
add z-index parameter to cursors, and refactor code to use them
2025-09-11 01:53:13 +01:00
fun lerp (xOffset: Real32.real, yOffset, z, scale, windowWidth, windowHeight, r, g, b) =
replace text-builder.sml's 'buildCursor' function with a new 'Rect.lerp' function (which is in fcore/rect.sml)
2024-11-15 21:14:43 +00:00
let
create new rect which is adapted to new text, and use it in text-builder.sml
2025-08-18 02:39:56 +01:00
val halfWidth = windowWidth / 2.0
val halfHeight = windowHeight / 2.0
replace text-builder.sml's 'buildCursor' function with a new 'Rect.lerp' function (which is in fcore/rect.sml)
2024-11-15 21:14:43 +00:00
in
create new rect which is adapted to new text, and use it in text-builder.sml
2025-08-18 02:39:56 +01:00
#[
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 13.000000000000000, scale, halfHeight),
better visual positioning for cursor
2025-09-27 08:14:22 +01:00
z, r, g, b,
xToNdc (xOffset, 7.000000000000000, scale, halfWidth),
create new rect which is adapted to new text, and use it in text-builder.sml
2025-08-18 02:39:56 +01:00
yToNdc (yOffset, 13.000000000000000, scale, halfHeight),
better visual positioning for cursor
2025-09-27 08:14:22 +01:00
z, r, g, b,
create new rect which is adapted to new text, and use it in text-builder.sml
2025-08-18 02:39:56 +01:00
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
better visual positioning for cursor
2025-09-27 08:14:22 +01:00
z, r, g, b,
create new rect which is adapted to new text, and use it in text-builder.sml
2025-08-18 02:39:56 +01:00
xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
better visual positioning for cursor
2025-09-27 08:14:22 +01:00
z, r, g, b,
xToNdc (xOffset, 7.000000000000000, scale, halfWidth),
create new rect which is adapted to new text, and use it in text-builder.sml
2025-08-18 02:39:56 +01:00
yToNdc (yOffset, 13.000000000000000, scale, halfHeight),
better visual positioning for cursor
2025-09-27 08:14:22 +01:00
z, r, g, b,
xToNdc (xOffset, 7.000000000000000, scale, halfWidth),
create new rect which is adapted to new text, and use it in text-builder.sml
2025-08-18 02:39:56 +01:00
yToNdc (yOffset, 0.000000000000000, scale, halfHeight),
better visual positioning for cursor
2025-09-27 08:14:22 +01:00
z, r, g, b
create new rect which is adapted to new text, and use it in text-builder.sml
2025-08-18 02:39:56 +01:00
]
end
replace text-builder.sml's 'buildCursor' function with a new 'Rect.lerp' function (which is in fcore/rect.sml)
2024-11-15 21:14:43 +00:00
end
Reference in New Issue Copy Permalink