Implement foreground correctly, not with shadows though

2021-06-10 13:53:03 +02:00
parent 21a4393ad9
commit aa30f6b969
7 changed files with 34 additions and 74 deletions
@@ -28,9 +28,6 @@ worldPictures w = pictures $ concat
    , map drawWallFloor (wallFloorsToDraw w)
    , testPic w
    ]
-midgroundPics :: World -> Picture
-midgroundPics = pictures . _midgroundDecorations
-
 foregroundPics :: World -> Picture
 foregroundPics = pictures . _foregroundDecorations