Bind some fixed texture arrays only once

2023-03-23 14:46:51 +00:00
parent ecd7a0fae0
commit 05d1d3d1eb
7 changed files with 15 additions and 16 deletions
@@ -161,8 +161,10 @@ preloadRender = do
    let floorverxstrd = 8
    floorvbo <- setupVBOStatic floorverxstrd
    floorshader <- makeShader4 "floor/arrayPos" [vert, frag] [4,4] floorverxstrd pmTriangles 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"
+    tonormalmap <- initTexture2DArray 3 GL_LINEAR_MIPMAP_LINEAR GL_LINEAR "data/normalMaps/normalArray.png"
+    glBindTextureUnit 40 (todiffusemap ^. unTO)
+    glBindTextureUnit 41 (tonormalmap ^. unTO)

    let cloudverxsizes = [4,4,4,4]
    cloudvbo <- setupVBO (sum cloudverxsizes)
@@ -250,8 +252,8 @@ preloadRender = do
            , _vboShapes = shVBO
            , _floorVBO = floorvbo
            , _floorShader = floorshader
-            , _toNormalMaps = tonormalmap
-            , _toDiffuse = todiffusemap
+            , _texaNormalMaps = tonormalmap
+            , _texaDiffuse = todiffusemap
            , _wallVBO = wallvbo
            , _wallShader = wallshader
            , _cloudVBO = cloudvbo