fix bug caused by the calculation change in the previous commit

This commit is contained in:
2024-08-30 09:15:33 +01:00
parent f3a0eb3e30
commit c16fa58bf6
3 changed files with 2 additions and 2 deletions

2
a.sml
View File

@@ -4,9 +4,9 @@ struct
let
val startX = Real32.fromInt startX
val startY = Real32.fromInt startY
val endY = windowHeight - startY
val startY = windowHeight - (startY + drawHeight)
val endX = startX + drawWidth
val endY = startY + drawHeight
val windowHeight = windowHeight / 2.0
val windowWidth = windowWidth / 2.0
in