Make background black, start cleanup of weapons

src/Dodge/Render.hs

@@ -71,15 +71,17 @@ doDrawing pdata w = do
     clearColor $= Color4 0 0 0 0
     clear [ColorBuffer,DepthBuffer]
     depthFunc $= Just Less
-    if w ^. config . wall_textured
-        then renderTextureWalls pdata nWalls
-        else renderBlankWalls pdata nWalls
-    
+
     -- draw wall occlusions from your point of view
     drawShader (_lightingOccludeShader pdata) nWalls
     -- this might only work because the uniform has been correctly set
     -- elsewhere, beware
 
+    if w ^. config . wall_textured
+        then renderTextureWalls pdata nWalls
+        else renderBlankWalls pdata nWalls
+    
+
     renderFoldable shadV $ polysToPic $ foregroundPics w
 
     layerCounts <- UMV.replicate (6*6) 0