Data-ify item drawing

src/Dodge/Item/Draw.hs

@@ -3,6 +3,7 @@ module Dodge.Item.Draw
     , pictureWeaponAim
     , twoFlatHRot
     , itSPic
+    , itemEquipPict
     ) where
 import Dodge.Data
 --import Dodge.Picture.Layer
@@ -10,11 +11,18 @@ import Dodge.Data
 --import Shape
 import ShapePicture
 import Dodge.Creature.HandPos
+import Dodge.Item.Equipment.Shape
 
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
 import Data.Maybe
 
+itemEquipPict :: Creature -> Item -> SPic
+itemEquipPict cr it = case _dimPortage (_itDimension it) of
+    HeldItem {} -> pictureWeaponOnAim cr it
+    WornItem -> pictureOnEquip (itSPic it) cr it
+    NoPortage -> mempty
+
 pictureWeaponOnAim
     :: Creature 
     -> Item