Refactor window size, update selection cursor on new screen

src/Preload/Render.hs

@@ -7,8 +7,6 @@ module Preload.Render (
 
 import Shader.AuxAddition
 import Shape.Data
-import Geometry.Data
-import MatrixHelper
 import GLHelp
 import Control.Lens
 import Control.Monad
@@ -36,9 +34,9 @@ preloadRender = do
     glNamedBufferData theUBO 64 nullPtr GL_STREAM_DRAW
     glBindBufferBase GL_UNIFORM_BUFFER 0 theUBO
     
-    orthonormalUBO <- mglCreate glCreateBuffers
-    withArray (isoMatrix 0 1 (V2 0 0) (V2 1 1)) $ \ptr ->
-        glNamedBufferStorage orthonormalUBO 64 ptr 0
+--    orthonormalUBO <- mglCreate glCreateBuffers
+--    withArray idMat $ \ptr ->
+--        glNamedBufferStorage orthonormalUBO 64 ptr 0
 
     lightsubo <- mglCreate glCreateBuffers
     glNamedBufferData lightsubo 640 nullPtr GL_STREAM_DRAW
@@ -190,7 +188,7 @@ preloadRender = do
             , _fboOverlay = fbooverlay
             , _rboBaseBloom = rboBaseBloomName
             , _matUBO = theUBO
-            , _orthonormalMatUBO = orthonormalUBO
+--            , _orthonormalMatUBO = orthonormalUBO
             , _lightsUBO = lightsubo
             , _vboWindows = winvbo
             , _vboShapes = shVBO