Add explicit layer datatype

src/Dodge/Default.hs

@@ -8,7 +8,6 @@ module Dodge.Default where
 import Dodge.Default.Weapon
 import Dodge.Data
 import Dodge.SoundLogic
-import Dodge.Picture.Layer
 import Dodge.Wall.Delete
 import Dodge.Creature.Damage
 import Geometry
@@ -44,7 +43,7 @@ defaultCreature = Creature
     , _crInvEquipped = mempty
     , _crLeftInvSel = Nothing
     , _crState  = defaultState
-    , _crCorpse = setLayer 0 $ setDepth 5 $ color (greyN 0.5) $ circleSolid 10
+    , _crCorpse = setLayer BottomLayer $ setDepth 5 $ color (greyN 0.5) $ circleSolid 10
     , _crApplyDamage = defaultApplyDamage
     , _crStance = Stance 
         {_carriage=Walking 0 WasLeftForward
@@ -264,7 +263,7 @@ defaultLS = LS
     , _lsPict = defLSPic 
     }
 defLSPic :: LightSource -> Picture
-defLSPic ls = setLayer 1 . translate3 (_lsPos $ _lsParam ls) . color col $ circleSolid 4
+defLSPic ls = setLayer BloomNoZWrite . translate3 (_lsPos $ _lsParam ls) . color col $ circleSolid 4
   where
     col = V4 r g b 2
     V3 r g b = _lsCol $ _lsParam ls