Remove old layer code

src/Dodge/Creature/ChaseCrit.hs

@@ -10,7 +10,6 @@ import Dodge.Creature.ReaderUpdate
 import Dodge.Creature.Action
 import Dodge.Creature.Perception
 import Dodge.Item.Consumable
-import Dodge.Picture.Layer
 import Dodge.SoundLogic
 --import Geometry
 import Picture
@@ -27,7 +26,7 @@ smallChaseCrit = chaseCrit
     , _crRad = 4
     , _crPict = basicCrPict green
     , _crInv = IM.fromList [(0,medkit 200)]
-    , _crCorpse = onLayer CorpseLayer $ color (greyN 0.5) $ circleSolid 4
+    , _crCorpse = setDepth 5 $ color (greyN 0.5) $ circleSolid 4
     }
 chaseCrit :: Creature
 chaseCrit = defaultCreature

src/Dodge/Creature/Inanimate.hs

@@ -12,7 +12,6 @@ import Dodge.Creature.Lamp
 import Dodge.WorldEvent.Explosion
 import Dodge.Creature.Picture
 --import Dodge.Creature.Stance.Data
-import Dodge.Picture.Layer
 import Dodge.Particle.Spark
 import Dodge.Default
 import Dodge.Creature.State
@@ -32,7 +31,7 @@ barrel :: Creature
 barrel = defaultInanimate
     { _crUpdate = updateBarrel
     , _crHP = 500
-    , _crPict = picAtCrPos $ onLayer CrLayer $ pictures 
+    , _crPict = picAtCrPos $ setDepth 20 $ pictures 
         [ color orange $ circleSolid 10
         , setDepth 0.049 . color (greyN 0.5) $ circleSolid 8
         , color (greyN 0.5) $ circleSolid 8

src/Dodge/Creature/SwarmCrit.hs

@@ -11,7 +11,6 @@ import Dodge.Creature.ReaderUpdate
 import Dodge.Creature.Perception
 --import Dodge.Creature.Impulse
 --import Dodge.Creature.State
-import Dodge.Picture.Layer
 import Picture
 
 import Control.Lens
@@ -32,7 +31,7 @@ swarmCrit = defaultCreature
     , _crRad = 2
     , _crMass = 2
     , _crPict = basicCrPict yellow
-    , _crCorpse = onLayer CorpseLayer $ color (greyN 0.5) $ circleSolid 2
+    , _crCorpse = setDepth 5 $ color (greyN 0.5) $ circleSolid 2
     , _crFaction = ColorFaction yellow
     , _crMeleeCooldown = 0
     }