Allow for items to cast shadows

src/Dodge/Item/Consumable.hs

@@ -7,13 +7,12 @@ import Dodge.Picture.Layer
 import Dodge.Default
 import Dodge.SoundLogic
 import Dodge.SoundLogic.LoadSound
-
+import Shape
+import ShapePicture
 import Dodge.Item.Draw
-
 import Picture
 
 import Control.Lens
-
 import qualified Data.IntMap.Strict as IM
 
 medkit :: Int -> Item
@@ -23,8 +22,8 @@ medkit i = defaultConsumable
     , _itMaxStack = 9
     , _itAmount = 1
     , _cnEffect = heal i
-    , _itFloorPict = setLayer 0 . onLayer FlItLayer . color blue $ circleSolid 3
-    , _itEquipPict = pictureItem $ color blue $ circleSolid 3
+    , _itFloorPict = SPic emptySH $ setLayer 0 . onLayer FlItLayer . color blue $ circleSolid 3
+    , _itEquipPict = pictureItem $ SPic emptySH $ color blue $ circleSolid 3
     , _itID = Nothing
     }