Hand/handle position refactor

src/Dodge/Item/Draw.hs

@@ -15,17 +15,18 @@ import Dodge.Item.Draw.SPic
 import Dodge.Item.HeldOffset
 import ShapePicture
 
-itemEquipPict :: Creature -> LDTree ItemLink CItem -> SPic
+itemEquipPict :: Creature -> LDTree ItemLink OItem -> SPic
 itemEquipPict cr itmtree
     | Just i <- itm ^? itLocation . ilInvID
     , Just esite <- cr ^? crInv . ix i . itLocation . ilEquipSite . _Just
     , Just attachpos <- equipAttachPos <$> itm ^? itType . ibtEquip
         = equipPosition esite cr attachpos (itemSPic itm)
     | itm ^? itLocation . ilInvID == cr ^? crManipulation . manObject . imRootSelectedItem
-        = overPosSP (heldItemOffset itm cr) (itemTreeSPic itmtree)
+        = overPosSP (heldItemOffset loc cr) (itemTreeSPic itmtree)
     | otherwise = mempty
   where
     itm = itmtree ^. ldtValue . _1
+    loc = LocLDT TopLDT itmtree
 
 equipAttachPos :: EquipItemType -> Point3
 equipAttachPos = \case