Commit before attempt to unify picture rendering

src/Dodge/Render/Picture.hs

@@ -28,6 +28,11 @@ worldPictures w = pictures $ concat
     , map drawWallFloor (wallFloorsToDraw w)
     , testPic w
     ]
+midgroundPics :: World -> Picture
+midgroundPics = pictures . _midgroundDecorations
+
+foregroundPics :: World -> Picture
+foregroundPics = pictures . _foregroundDecorations
 
 fixedCoordPictures :: World -> Picture
 fixedCoordPictures w = case _menuLayers w of