Tweak window rendering

src/Preload/Render.hs

@@ -51,6 +51,21 @@ preloadRender = do
     setupVertexAttribPointer 1 4 8 4
     let wpVAO = VAO {_vao = wpVAOname, _vaoVBO = wpVBO}
         wpColVAO = VAO {_vao = wpColVAOname, _vaoVBO = wpVBO}
+    -- setup window points VBO, VAOs and shaders
+    winVBOname <- genObjectName
+    winVBOptr <- mallocArray (8 * numDrawableWalls)
+    bindBuffer ArrayBuffer $= Just winVBOname
+    bufferData ArrayBuffer $=
+        (fromIntegral $ floatSize * numDrawableWalls * 8
+        , nullPtr
+        , DynamicDraw
+        )
+    let winVBO = VBO {_vbo = winVBOname, _vboPtr = winVBOptr, _vboAttribSizes = [4,4], _vboStride = 8}
+    winColVAOname <- genObjectName
+    bindVertexArrayObject $= Just winColVAOname
+    setupVertexAttribPointer 0 4 8 0
+    setupVertexAttribPointer 1 4 8 4
+    let winColVAO = VAO {_vao = winColVAOname, _vaoVBO = winVBO}
     -- lighting shaders
     wsShad <- makeShader "lighting/occlude" [vert,geom,frag] [4] EPoints
                 >>= addUniforms ["lightPos"]
@@ -142,6 +157,7 @@ preloadRender = do
         --, _lightingWallShader       = wlLightShad   {_shaderVAO = wpVAO}
         , _wallBlankShader          = wlBlank { _shaderVAO = wpColVAO }
         , _wallTextureShader        = wlTexture { _shaderVAO = wpColVAO }
+        , _windowShader             = wlBlank { _shaderVAO = winColVAO }
         , _textureArrayShader       = textArrayShad
         , _fullscreenShader         = fsShad
         , _fullLightingShader         = fullLightingShad