Partial fix of inventory rendering

src/Dodge/Render.hs

@@ -79,6 +79,7 @@ doDrawing pdata w = do
         then renderTextureWalls pdata nWalls
         else renderBlankWalls pdata nWalls
     --_ <- renderFoldable pdata $ (picToAlt (Just 0) (polysToPic $ foregroundPics w) :: [RenderType])
+    --_ <- renderFoldable pdata $ (picToAlt (Just 0) pic :: [RenderType])
     _ <- renderFoldable pdata $ picToLTree (Just 0) (polysToPic $ foregroundPics w)
     _ <- renderFoldable pdata $ picToLTree (Just 0) pic
     _ <- renderShader (_textureArrayShader pdata) (_floorTiles w)
@@ -162,11 +163,12 @@ doDrawing pdata w = do
             activeTexture $= TextureUnit 0
     -- draw overlay
     bufferUBO $ isoMatrix 0 1 (0,0) (2,2)
-    --depthFunc $= Just Always
-    depthMask $= Enabled
+    depthFunc $= Just Always
+    depthMask $= Disabled
     blend $= Enabled
     blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
     _ <- renderFoldable pdata (picToLTree Nothing $ fixedCoordPictures w)
+    depthMask $= Enabled
 
     eTicks <- SDL.ticks
     return (eTicks - sTicks)