Refactor window size, update selection cursor on new screen

src/MatrixHelper.hs

@@ -1,6 +1,7 @@
 module MatrixHelper
     ( perspectiveMatrixb
     , isoMatrix
+    , scaleMatrix
     ) where
 import Geometry.Data
 
@@ -52,6 +53,9 @@ perMat x = V4
     (V4 0 0 1 0)
     (V4 0 0 x 1)
 
+scaleMatrix :: Float -> Float -> [V4 Float]
+scaleMatrix x = vToL . scaleMat . V2 x
+
 scaleMat :: Point2 -> V4 (V4 Float)
 scaleMat (V2 x y) = V4
     (V4 x 0 0 0)