Refactor shader code

2023-03-20 11:18:53 +00:00
parent 32ecf46343
commit f4038fde46
4 changed files with 48 additions and 4 deletions
@@ -169,6 +169,10 @@ preloadRender = do
    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
    -- bind fixed vertex data
    bufferPokedVBO (snd fsShad) 4
    framebuf2 <- setupTextureFramebuffer 800 600