Initial pass at shadows from level geometry

src/Dodge/Render/Picture.hs

@@ -9,6 +9,7 @@ import Dodge.Render.MenuScreen
 import Geometry
 import Geometry.Data
 import Picture
+import Polyhedra.Data
 
 --import Dodge.Creature.YourControl
 
@@ -29,8 +30,8 @@ worldPictures w = pictures $ concat
     , map drawWallFloor (wallFloorsToDraw w)
     , testPic w
     ]
-foregroundPics :: World -> Picture
-foregroundPics = pictures . _foregroundDecorations
+foregroundPics :: World -> [Polyhedra]
+foregroundPics = _foregroundDecorations
 
 fixedCoordPictures :: World -> Picture
 fixedCoordPictures w = case _menuLayers w of