Continue shape rendering improvements

src/Dodge/Render.hs

@@ -19,7 +19,6 @@ import Shader.Bind
 import Shader.Data
 import MatrixHelper
 --import Polyhedra.Data
-import Polyhedra
 import Shader.ExtraPrimitive
 import Shader.Parameters
 
@@ -98,8 +97,6 @@ doDrawing pdata w = do
     if w ^. config . wall_textured
         then renderTextureWalls pdata nWalls
         else renderBlankWalls pdata nWalls
-    ---draw foreground geometry onto base buffer
-    renderFoldable shadV $ polysToPic $ foregroundPics w
     --draw objects onto base buffer
     layerCounts <- UMV.replicate (6*6) 0
     pokeBindFoldableLayer shadV layerCounts $ worldPictures w