Implement texture atlas, details on why it works unclear

src/Picture/Render.hs

@@ -198,7 +198,7 @@ renderBackground pdata rot camZoom (tranx,trany) (winx,winy) = do
     --blendFuncSeparate    $= ((SrcAlphaSaturate, OneMinusSrcAlpha), (Zero,One))
 -- draw background
     --bindArrayBuffers 1 $ _vaoBufferTargets $ _shaderVAO $ _backgroundShader pdata
-    bindArrayBuffers' 1 $ _vaoVBO $ _shaderVAO $ _backgroundShader pdata
+    bindArrayBuffers 1 $ _vaoVBO $ _shaderVAO $ _backgroundShader pdata
     currentProgram $= Just (_shaderProgram $ _backgroundShader pdata)
     bindVertexArrayObject $= Just (_vao $ _shaderVAO $ _backgroundShader pdata)
     let backPtr = _vboPointer $ _vaoVBO $ _shaderVAO $ _backgroundShader pdata
@@ -219,6 +219,7 @@ setCommonUniforms pdata rot camZoom (tranx,trany) (winx,winy) = do
         : extractProgAndUnis (_lightingOccludeShader pdata) 
         : extractProgAndUnis (_lightingWallShader pdata) 
         : extractProgAndUnis (_backgroundShader pdata) 
+        : extractProgAndUnis (_textureShader pdata) 
         : map extractProgAndUnis (_pictureShaders pdata)
         )
 
@@ -233,7 +234,8 @@ setIsoMatrixUniforms pdata rot camZoom (tranx,trany) (winx,winy) = do
     setShaderUniforms rot camZoom (tranx,trany) (winx,winy) 
         ( extractProgAndUnis (_lightingFloorShader pdata) 
         : extractProgAndUnis (_backgroundShader pdata) 
-        -- : extractProgAndUnis (_textureShader pdata)
+        : extractProgAndUnis (_textureShader pdata)
+        : extractProgAndUnis (_textureArrayShader pdata)
         : map extractProgAndUnis (_pictureShaders pdata)
         )
 
@@ -250,6 +252,12 @@ renderShader shad dat = do
     eticks <- SDL.ticks
     return $ eticks - sticks
 
+--renderPictureLayer
+--    :: PictureShaderData
+--    -> Picture
+--    -> IO Word32
+--renderPictureLayer 
+
 renderFoldable
     :: Foldable f
     => RenderData