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

add r, g, b arguments to equals function (forgot to do this in previous commit)

Browse Source
This commit is contained in:
Humza Shahid
2025-09-01 23:07:45 +01:00
parent 8f164faabe
commit 60cf6a580f
1 changed files with 13 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
fonts/equals.sml
View File

@@ -6,7 +6,7 @@ struct
fun yToNdc (yOffset, ypos, scale, halfHeight) = fun yToNdc (yOffset, ypos, scale, halfHeight) =
~(((ypos * scale + yOffset) - halfHeight) / halfHeight) ~(((ypos * scale + yOffset) - halfHeight) / halfHeight)
fun lerp (xOffset: Real32.real, yOffset, scale, windowWidth, windowHeight) = fun lerp (xOffset: Real32.real, yOffset, scale, windowWidth, windowHeight, r, g, b) =
let let
val halfWidth = windowWidth / 2.0 val halfWidth = windowWidth / 2.0
val halfHeight = windowHeight / 2.0 val halfHeight = windowHeight / 2.0
@@ -14,64 +14,40 @@ struct
#[ #[
xToNdc (xOffset, 0.000000000000000, scale, halfWidth), xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 6.000000000000000, scale, halfHeight), yToNdc (yOffset, 6.000000000000000, scale, halfHeight),
0.000000000000000, r, g, b,
0.000000000000000,
0.000000000000000,
xToNdc (xOffset, 5.000000000000000, scale, halfWidth), xToNdc (xOffset, 5.000000000000000, scale, halfWidth),
yToNdc (yOffset, 6.000000000000000, scale, halfHeight), yToNdc (yOffset, 6.000000000000000, scale, halfHeight),
0.000000000000000, r, g, b,
0.000000000000000,
0.000000000000000,
xToNdc (xOffset, 0.000000000000000, scale, halfWidth), xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 5.000000000000000, scale, halfHeight), yToNdc (yOffset, 5.000000000000000, scale, halfHeight),
0.000000000000000, r, g, b,
0.000000000000000,
0.000000000000000,
xToNdc (xOffset, 0.000000000000000, scale, halfWidth), xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 5.000000000000000, scale, halfHeight), yToNdc (yOffset, 5.000000000000000, scale, halfHeight),
0.000000000000000, r, g, b,
0.000000000000000,
0.000000000000000,
xToNdc (xOffset, 5.000000000000000, scale, halfWidth), xToNdc (xOffset, 5.000000000000000, scale, halfWidth),
yToNdc (yOffset, 6.000000000000000, scale, halfHeight), yToNdc (yOffset, 6.000000000000000, scale, halfHeight),
0.000000000000000, r, g, b,
0.000000000000000,
0.000000000000000,
xToNdc (xOffset, 5.000000000000000, scale, halfWidth), xToNdc (xOffset, 5.000000000000000, scale, halfWidth),
yToNdc (yOffset, 5.000000000000000, scale, halfHeight), yToNdc (yOffset, 5.000000000000000, scale, halfHeight),
0.000000000000000, r, g, b,
0.000000000000000,
0.000000000000000,
xToNdc (xOffset, 0.000000000000000, scale, halfWidth), xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 8.000000000000000, scale, halfHeight), yToNdc (yOffset, 8.000000000000000, scale, halfHeight),
0.000000000000000, r, g, b,
0.000000000000000,
0.000000000000000,
xToNdc (xOffset, 5.000000000000000, scale, halfWidth), xToNdc (xOffset, 5.000000000000000, scale, halfWidth),
yToNdc (yOffset, 8.000000000000000, scale, halfHeight), yToNdc (yOffset, 8.000000000000000, scale, halfHeight),
0.000000000000000, r, g, b,
0.000000000000000,
0.000000000000000,
xToNdc (xOffset, 0.000000000000000, scale, halfWidth), xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 7.000000000000000, scale, halfHeight), yToNdc (yOffset, 7.000000000000000, scale, halfHeight),
0.000000000000000, r, g, b,
0.000000000000000,
0.000000000000000,
xToNdc (xOffset, 0.000000000000000, scale, halfWidth), xToNdc (xOffset, 0.000000000000000, scale, halfWidth),
yToNdc (yOffset, 7.000000000000000, scale, halfHeight), yToNdc (yOffset, 7.000000000000000, scale, halfHeight),
0.000000000000000, r, g, b,
0.000000000000000,
0.000000000000000,
xToNdc (xOffset, 5.000000000000000, scale, halfWidth), xToNdc (xOffset, 5.000000000000000, scale, halfWidth),
yToNdc (yOffset, 8.000000000000000, scale, halfHeight), yToNdc (yOffset, 8.000000000000000, scale, halfHeight),
0.000000000000000, r, g, b,
0.000000000000000,
0.000000000000000,
xToNdc (xOffset, 5.000000000000000, scale, halfWidth), xToNdc (xOffset, 5.000000000000000, scale, halfWidth),
yToNdc (yOffset, 7.000000000000000, scale, halfHeight), yToNdc (yOffset, 7.000000000000000, scale, halfHeight),
0.000000000000000, r, g, b
0.000000000000000,
0.000000000000000
] ]
end end
end end