diff --git a/src/MatrixHelper.hs b/src/MatrixHelper.hs
index 78191b900..c180c86eb 100644
--- a/src/MatrixHelper.hs
+++ b/src/MatrixHelper.hs
@@ -23,9 +23,10 @@ perspectiveMatrixb rot zoom (V2 tranx trany) (V2 winx winy) (V2 viewFromx viewFr
     $ scaleMat (V2 (2*zoom/winx) (2*zoom/winy))
         !*! rotMatr (-rot)
         !*! transMat (V2 (viewFromx-tranx) (viewFromy-trany))
-        !*! perMat (zoom * 0.4)
+       -- !*! perMat (zoom * 0.4)
+        !*! perMat 0.4
         !*! transMat (V2 (-viewFromx) (-viewFromy))
-        !*! vertScale 
+        !*! vertScale (negate 0.005)
         !*! vertTrans 20
 
 isoMatrix 
@@ -75,11 +76,11 @@ transMat (V2 x y) = V4
     (V4 0 0 1 0)
     (V4 0 0 0 1)
 
-vertScale :: V4 (V4 Float)
-vertScale = V4
+vertScale :: Float -> V4 (V4 Float)
+vertScale s = V4
     (V4 1 0 0 0)
     (V4 0 1 0 0)
-    (V4 0 0 (negate 0.005) 0)
+    (V4 0 0 s 0)
     (V4 0 0 0 1)
 
 vertTrans :: Float -> V4 (V4 Float)