Add blurring of lightmap (and refactoring)

src/Dodge/Item/Draw.hs

@@ -1,13 +1,18 @@
 module Dodge.Item.Draw
     where
 import Dodge.Data
-import Dodge.Base
-
+import Dodge.Picture.Layer
 import Picture
-
-drawWeapon :: Picture -> Creature -> Int -> Picture
+{- |
+Places an item picture onto a creature when the item is selected. -}
+drawWeapon 
+    :: Picture 
+    -> Creature 
+    -> Int  -- ^ Position of item in inventory
+    -> Picture
 drawWeapon p cr posInInv 
     | _crInvSel cr == posInInv = onLayer PtLayer drawnWep
     | otherwise                = blank
-        where drawnWep = uncurry translate (_crRad cr,0) p
+  where 
+    drawnWep = uncurry translate (_crRad cr,0) p