fix bug caused by the calculation change in the previous commit
This commit is contained in:
2
a.sml
2
a.sml
@@ -4,9 +4,9 @@ struct
|
|||||||
let
|
let
|
||||||
val startX = Real32.fromInt startX
|
val startX = Real32.fromInt startX
|
||||||
val startY = Real32.fromInt startY
|
val startY = Real32.fromInt startY
|
||||||
|
val endY = windowHeight - startY
|
||||||
val startY = windowHeight - (startY + drawHeight)
|
val startY = windowHeight - (startY + drawHeight)
|
||||||
val endX = startX + drawWidth
|
val endX = startX + drawWidth
|
||||||
val endY = startY + drawHeight
|
|
||||||
val windowHeight = windowHeight / 2.0
|
val windowHeight = windowHeight / 2.0
|
||||||
val windowWidth = windowWidth / 2.0
|
val windowWidth = windowWidth / 2.0
|
||||||
in
|
in
|
||||||
|
|||||||
@@ -69,8 +69,8 @@ struct
|
|||||||
\ val startX = Real32.fromInt startX\n\
|
\ val startX = Real32.fromInt startX\n\
|
||||||
\ val startY = Real32.fromInt startY\n\
|
\ val startY = Real32.fromInt startY\n\
|
||||||
\ val endY = windowHeight - startY\n\
|
\ val endY = windowHeight - startY\n\
|
||||||
|
\ val startY = windowHeight - (startY + drawHeight)\n\
|
||||||
\ val endX = startX + drawWidth\n\
|
\ val endX = startX + drawWidth\n\
|
||||||
\ val startY = startY - drawHeight\n\
|
|
||||||
\ val windowHeight = windowHeight / 2.0\n\
|
\ val windowHeight = windowHeight / 2.0\n\
|
||||||
\ val windowWidth = windowWidth / 2.0\n\
|
\ val windowWidth = windowWidth / 2.0\n\
|
||||||
\ in\n\
|
\ in\n\
|
||||||
|
|||||||
Reference in New Issue
Block a user