Add blurring of lightmap (and refactoring)

src/Dodge/Data.hs

@@ -1,7 +1,7 @@
 {-
 Contains base datatypes that cannot be seperated into 
 different modules because they are interdependent;
-circular imports are scary.
+circular imports are probably not a good idea.
  -}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE FlexibleInstances #-}
@@ -17,6 +17,7 @@ module Dodge.Data
     , soundTime
     )
   where
+import Dodge.Picture.Layer.Data
 import Dodge.Creature.Data
 import Dodge.Creature.State.Data
 import Dodge.Data.Menu
@@ -107,21 +108,6 @@ data Corpse = Corpse
     , _cpRes :: Creature
     }
 
-data Layer 
-    = PtLayer 
-    | CrLayer 
-    | WlLayer 
-    | BgLayer 
-    | ShadowLayer 
-    | FlItLayer 
-    | LabelLayer 
-    | InvLayer 
-    | MenuDepth
-    | PressPlateLayer 
-    | CorpseLayer
-    | UPtLayer
-    | HPtLayer
-    | GloomLayer
 
 data Cloud = Cloud
     { _clID :: Int