Continue shape rendering improvements

src/Dodge/Render/Picture.hs

@@ -14,7 +14,6 @@ import Dodge.SoundLogic.LoadSound
 import Sound.Data
 import Geometry
 import Picture
-import Polyhedra.Data
 import ShapePicture
 
 import Control.Lens
@@ -42,9 +41,6 @@ worldPictures w = pictures
     winSize = 30 + max (getWindowX w) (getWindowY w)
     camCen = _cameraCenter w
     
-foregroundPics :: World -> [Polyhedra]
-foregroundPics = _foregroundDecorations
-
 fixedCoordPictures :: World -> Picture
 fixedCoordPictures w = case _menuLayers w of 
     [] -> pictures