diff --git a/a.sml b/a.sml
index 3e0dbcc..2b3f76c 100644
--- a/a.sml
+++ b/a.sml
@@ -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
diff --git a/dotscape b/dotscape
index af3ca5d..5d8c8d3 100755
Binary files a/dotscape and b/dotscape differ
diff --git a/imperative-shell/file-thread.sml b/imperative-shell/file-thread.sml
index f62ac89..617e6a2 100644
--- a/imperative-shell/file-thread.sml
+++ b/imperative-shell/file-thread.sml
@@ -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\