Commit before attempt to unify picture rendering

2021-06-09 21:32:26 +02:00
parent 71d9a24eed
commit 822db37a58
7 changed files with 47 additions and 11 deletions
@@ -73,6 +73,8 @@ data World = World
    , _soundQueue           :: [(Int,Int16)]
    , _sounds               :: M.Map SoundOrigin Sound
    , _decorations          :: IM.IntMap Picture
+    , _foregroundDecorations :: [Picture]
+    , _midgroundDecorations :: [Picture]
    , _corpses              :: IM.IntMap (IM.IntMap [Corpse])
    , _clickMousePos        :: (Float,Float)
    , _pathGraph            :: ~(Gr Point2 Float)