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

BIN
dotscape

Binary file not shown.

View File

@@ -69,8 +69,8 @@ struct
\ val startX = Real32.fromInt startX\n\
\ val startY = Real32.fromInt startY\n\
\ val endY = windowHeight - startY\n\
\ val startY = windowHeight - (startY + drawHeight)\n\
\ val endX = startX + drawWidth\n\
\ val startY = startY - drawHeight\n\
\ val windowHeight = windowHeight / 2.0\n\
\ val windowWidth = windowWidth / 2.0\n\
\ in\n\