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

add function to convert from absolute pixel value to NDC

Browse Source
This commit is contained in:
Humza Shahid
2025-07-06 03:35:36 +01:00
parent ed64b464c8
commit a919e3d3d4
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
dotscape
View File

Binary file not shown.

4
temp-squares/fcore/ndc.sml
View File

@@ -24,7 +24,7 @@ struct
fun fromPixelX (xpos, windowWidth, windowHeight) = fun fromPixelX (xpos, windowWidth, windowHeight) =
let let
val halfWidth = (Real32.fromInt windowWidth) / 2.0 val halfWidth = Real32.fromInt (windowWidth div 2)
val xpos = xpos - halfWidth val xpos = xpos - halfWidth
in in
if windowWidth > windowHeight then if windowWidth > windowHeight then
@@ -40,7 +40,7 @@ struct
fun fromPixelY (ypos, windowWidth, windowHeight) = fun fromPixelY (ypos, windowWidth, windowHeight) =
let let
val halfHeight = (Real32.fromInt windowHeight) / 2.0 val halfHeight = Real32.fromInt (windowHeight div 2)
val ypos = ~(ypos - halfHeight) val ypos = ~(ypos - halfHeight)
in in
if windowHeight > windowWidth then if windowHeight > windowWidth then