Remove old layer code

src/Dodge/Creature.hs

@@ -42,7 +42,6 @@ import Dodge.Creature.State
 import Dodge.Creature.Picture
 --import Dodge.Creature.ChooseTarget
 --import Dodge.Item
-import Dodge.Picture.Layer
 import Picture
 import Geometry.Data
 import qualified IntMapHelp as IM
@@ -155,7 +154,7 @@ startCr = defaultCreature
     , _crHP = 1000
     , _crMaxHP = 1500
     , _crInv = startInventory 
-    , _crCorpse = onLayer CorpseLayer 
+    , _crCorpse = setDepth 5
         $ color (greyN 0.5) $ pictures [color (greyN 0.8) $ circleSolid 10, circLine 10]
     , _crFaction = PlayerFaction
     , _crMvType = MvWalking yourDefaultSpeed