Commit before attempting to change cloud shading

src/Preload/Render.hs

@@ -162,17 +162,19 @@ preloadRender = do
     wallTextureShad <-
         makeShaderUsingVAO "wall/texture" [vert, geom, frag] EPoints wpColVAO
     let wallverxstrd = 8
-    wallvbo <- setupVBO' wallverxstrd
+    wallvbo <- setupVBO wallverxstrd
     wallshader <- makeShader4 "wall/basic" [vert,geom,frag] [4,4] wallverxstrd EPoints wallvbo
     let floorverxstrd = 8
-    floorvbo <- setupVBO' floorverxstrd
+    floorvbo <- setupVBOStatic floorverxstrd
     floorshader <- makeShader4 "floor/arrayPos" [vert, frag] [4,4] floorverxstrd ETriangles floorvbo
     tonormalmap <- initTexture2DArray 3 GL_LINEAR_MIPMAP_LINEAR GL_LINEAR "data/normalMaps/normalArray.png"
     todiffusemap <- initTexture2DArray 3 GL_LINEAR_MIPMAP_LINEAR GL_LINEAR "data/normalMaps/diffuseArray.png"
 
---    let cloudverxstrd = 16
---    cloudvbo <- setupVBO' cloudverxstrd
---    cloudshader <- makeShader4 "floor/arrayPos" [vert, frag] [4,4,4,4] cloudverxstrd ETriangles floorvbo
+    let cloudverxsizes = [4,4,4,4]
+    cloudvbo <- setupVBO (sum cloudverxsizes)
+    (cloudshader, cloudebo) 
+        <- makeShaderEBO "floor/arrayPos" [vert, frag] cloudverxsizes (sum cloudverxsizes) 
+            GL_TRIANGLES floorvbo
     -- bind fixed vertex data
     bufferPokedVBO (snd fsShad) 4
     framebuf2 <- setupTextureFramebuffer 800 600
@@ -261,6 +263,9 @@ preloadRender = do
             , _toDiffuse = todiffusemap
             , _wallVBO = wallvbo
             , _wallShader = wallshader
+            , _cloudVBO = cloudvbo
+            , _cloudShader = cloudshader
+            , _cloudEBO = cloudebo
             }
 
 --------------------end preloadRender