Move towards adding corpses

src/Dodge/Default.hs

@@ -10,6 +10,7 @@ import Dodge.Data
 import Dodge.SoundLogic
 import Dodge.Wall.Delete
 import Dodge.Creature.Damage
+import Dodge.Creature.Picture
 import Geometry
 import Picture
 import ShapePicture
@@ -30,7 +31,7 @@ defaultCreature = Creature
     , _crMvDir  = 0
     , _crTwist  = 0
     , _crID     = 1
-    , _crPict   = \_ _ _ -> mempty
+    , _crPict   = basicCrPict
     , _crSkin = defaultCreatureSkin
     , _crUpdate = const id
     , _crRad    = 10
@@ -44,7 +45,7 @@ defaultCreature = Creature
     , _crInvEquipped = mempty
     , _crLeftInvSel = Nothing
     , _crState  = defaultState
-    , _crCorpse = setLayer BottomLayer $ setDepth 5 $ color (greyN 0.5) $ circleSolid 10
+    , _crCorpse = basicCrCorpse
     , _crApplyDamage = defaultApplyDamage
     , _crPastDamage = 0
     , _crEquipment = M.empty