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

code shortcut to trigger export (with <Ctrl-E>); it outputs syntatically valid .sml, but I am not sure if the output is correct as intended so it needs testing

Browse Source
This commit is contained in:
Humza Shahid
2024-08-30 02:34:24 +01:00
parent 7ab7b8931d
commit acd68a055d
6 changed files with 19 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
a.sml
View File

@@ -1,22 +0,0 @@
structure LowerCaseA =
struct
fun lerp (startX, startY, drawWidth, drawHeight, windowWidth, windowHeight) =
let
val endX = startX + drawWidth
val endY = startY + drawHeight
in
[ ((startX * (1.0 - 0.47499999404)) + (endX * 0.47499999404)) / windowWidth,
((startY * (1.0 - 0.700000047684)) + (endY * 0.700000047684)) / windowHeight,
((startX * (1.0 - 0.299999982119)) + (endX * 0.299999982119)) / windowWidth,
((startY * (1.0 - 0.675000011921)) + (endY * 0.675000011921)) / windowHeight,
((startX * (1.0 - 0.449999988079)) + (endX * 0.449999988079)) / windowWidth,
((startY * (1.0 - 0.550000011921)) + (endY * 0.550000011921)) / windowHeight,
((startX * (1.0 - 0.625)) + (endX * 0.625)) / windowWidth,
((startY * (1.0 - 0.275000035763)) + (endY * 0.275000035763)) / windowHeight,
((startX * (1.0 - 0.799999952316)) + (endX * 0.799999952316)) / windowWidth,
((startY * (1.0 - 0.400000035763)) + (endY * 0.400000035763)) / windowHeight,
((startX * (1.0 - 0.524999976158)) + (endX * 0.524999976158)) / windowWidth,
((startY * (1.0 - 0.524999976158)) + (endY * 0.524999976158)) / windowHeight
]
end
end