Use texture array for character rendering, condense rendering

src/Dodge/Render.hs

@@ -62,7 +62,7 @@ doDrawing' win pdata u = do
     -- count mutable vectors setup
     layerCounts <- UMV.replicate (numLayers * 6) 0
     -- attempt to poke in parallel
-    let (ws, wp) = wallSPics <> worldSPic cfig w
+    let (ws, wp) = wallSPics <> worldSPic cfig u
     ((nWalls, nWins,trueNWalls), (nShapeVs, nIndices, nSilIndices)) <-
         MP.bindM3
             (\_ a b -> return (a, b))
@@ -373,16 +373,15 @@ doDrawing' win pdata u = do
     glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA
     glBindBufferBase GL_UNIFORM_BUFFER 0 (pdata ^. orthonormalMatUBO)
     renderLayer FixedCoordLayer shadV layerCounts
-    renderFoldable shadV $ fixedCoordPictures u
     glDepthMask GL_TRUE
-    when (debugOn Show_ms_frame $ _uvConfig u) $
-        renderFoldable
-            (_pictureShaders pdata)
-            ( setDepth (-1)
-                . translate (-0.5) (-0.8)
-                . scale 0.0005 0.0005
-                $ fpsText (u ^. uvFrameTicks - u ^. uvLastFrameTicks)
-            )
+--    when (debugOn Show_ms_frame $ _uvConfig u) $
+--        renderFoldable
+--            (_pictureShaders pdata)
+--            ( setDepth (-1)
+--                . translate (-0.5) (-0.8)
+--                . scale 0.0005 0.0005
+--                $ fpsText (u ^. uvFrameTicks - u ^. uvLastFrameTicks)
+--            )
     SDL.glSwapWindow win
 
 fpsText :: (Show a, Ord a, Num a) => a -> Picture