Allow tweaking z buffer when rendering polygon, improve explosion render

src/Dodge/Render.hs

@@ -64,7 +64,7 @@ doDrawing pdata w = do
     depthFunc $= Just Less
     let scPol = screenPolygon w
     -- draw the lightmap. Probably changes the bound framebufferObject
-    createLightMap pdata (w ^. config . shadow_resolution) wallPoints lightPoints viewFroms
+    createLightMap pdata (w ^. config . shadow_resolution) wallPoints lightPoints
         (foregroundPics w) scPol
     clear [DepthBuffer]
     
@@ -95,6 +95,11 @@ doDrawing pdata w = do
     blendFuncSeparate $= ((SrcAlpha,OneMinusSrcAlpha) , (Zero,One))
     depthFunc $= Just Lequal
     _ <- renderFoldable pdata $ picToLTree (Just 1) pic
+    depthMask $= Disabled
+    _ <- renderFoldable pdata $ picToLTree (Just 3) pic
+    _ <- renderFoldable pdata $ picToLTree (Just 4) pic
+    _ <- renderFoldable pdata $ picToLTree (Just 5) pic
+    depthMask $= Enabled
     -- reset blend so that light map applies again
     -- allows us to be certain these elements are drawn on top of those before,
     -- in case we want transparency effects