Move towards uploading certain vbos less than once per frame (floor)

src/Preload/Render.hs

@@ -170,6 +170,9 @@ preloadRender = do
     textArrayShad <-
         makeShader "texture/arrayPos" [vert, frag] [3, 3] ETriangles
             >>= addTextureArray "data/texture/ayene_wooden_floor_transformed.png"
+    let floorverxstrd = 8
+    vbofloor <- setupVBO floorverxstrd
+    floorshader <- makeShader4 "floor/arrayPos" [vert, frag] [4,4] floorverxstrd ETriangles vbofloor
     -- bind fixed vertex data
     bufferPokedVBO (snd fsShad) 4
     framebuf2 <- setupTextureFramebuffer 800 600
@@ -254,6 +257,8 @@ preloadRender = do
             , _vboWalls = wpVBO
             , _vboWindows = winVBO
             , _vboShapes = shVBO
+            , _floorVBO = vbofloor
+            , _floorShader = floorshader
             , _toNormalMaps = tonormalmap
             }