Add basic corpse shapes

2022-06-04 13:23:31 +01:00
parent 5f5b1dd422
commit 63af928a1a
4 changed files with 44 additions and 19 deletions
@@ -32,6 +32,7 @@ worldSPic :: Configuration -> World -> SPic
 worldSPic cfig w = 
    (extraShapes w, extraPics cfig w)
    <> foldMap (dbArg _prDraw) (filtOn _pjPos _props)
+    <> foldMap (dbArg _cpPict) (filtOn _cpPos _corpses)
    <> foldMap ((($ w) . ($ cfig)) . dbArg _crPict) (filtOn _crPos _creatures)
    <> foldMap floorItemSPic (filtOn _flItPos _floorItems)
    <> foldMap btSPic (filtOn _btPos _buttons)