diff --git a/dotscape b/dotscape
index 9eae057..2ccf35d 100755
Binary files a/dotscape and b/dotscape differ
diff --git a/functional-core/app-type.sml b/functional-core/app-type.sml
index 7631ccb..f526520 100644
--- a/functional-core/app-type.sml
+++ b/functional-core/app-type.sml
@@ -264,7 +264,7 @@ struct
           val lines = helpGenGraphLinesVertical 
             (0, yClickPoints, lines, halfHeight, start, finish)
         in
-          Vector.fromList []
+          Vector.concat lines
         end
   end
 
@@ -299,7 +299,7 @@ struct
         let
           val difference = windowHeight - windowWidth
           val hStart = difference div 2
-          val hFinish = hStart + windowHeight
+          val hFinish = hStart + windowWidth
         in
           make (windowWidth, windowHeight, 0, windowWidth, hStart, hFinish)
         end
@@ -403,7 +403,7 @@ struct
         let
           val difference = windowHeight - windowWidth
           val hStart = difference div 2
-          val hFinish = hStart + windowHeight
+          val hFinish = hStart + windowWidth
         in
           make (app, windowWidth, windowHeight, 0, windowWidth, hStart, hFinish)
         end