Data-ify item drawing

src/Dodge/Item/Consumable.hs

@@ -3,10 +3,10 @@ import Dodge.Data
 --import Dodge.Picture.Layer
 import Dodge.Default
 import Dodge.SoundLogic
-import Shape
+--import Shape
 --import ShapePicture
-import Dodge.Item.Draw
-import Picture
+--import Dodge.Item.Draw
+--import Picture
 
 --import Data.Maybe
 import Control.Lens
@@ -17,7 +17,6 @@ medkit i = defaultConsumable
     { _itUse = ConsumeUse 
         {_cUse = \_ cr w -> w & creatures . ix (_crID cr) . crHP +~ i
         }
-    , _itEquipPict = pictureWeaponAim $ const $ (,) emptySH $ color blue $ circleSolid 3
     , _itID = Nothing
     }
     & itType . iyBase .~ MEDKIT i