Tweak drawing of backpack equipment

src/Dodge/Item/Draw.hs

@@ -5,6 +5,7 @@ module Dodge.Item.Draw (
     heldItemOffset,
 ) where
 
+import Geometry.Data
 import Control.Lens
 import Data.Maybe
 import Dodge.Creature.HandPos
@@ -16,18 +17,14 @@ import ShapePicture
 itemEquipPict :: Creature -> Item -> SPic
 itemEquipPict cr it = case it ^. itUse of
     HeldUse{} | _itIsHeld it -> overPosSP (heldItemOffset it cr) (itemSPic it)
-    ituse -> case ituse ^? equipEffect of
-        Just _ -> pictureOnEquip (itemSPic it) cr it
-        Nothing -> mempty
+    ituse -> fromMaybe mempty $ do
+        attachpos <- ituse ^? equipEffect . eeAttachPos
+        i <- it ^? itLocation . ipInvID
+        epos <- cr ^? crInvEquipped . ix i
+        return $ equipPosition epos cr attachpos (itemSPic it)
 
-pictureOnEquip :: SPic -> Creature -> Item -> SPic
-pictureOnEquip sp cr itm = fromMaybe mempty $ do
-    i <- itm ^? itLocation . ipInvID
-    epos <- cr ^? crInvEquipped . ix i
-    return $ equipPosition epos cr sp
-
-equipPosition :: EquipPosition -> Creature -> SPic -> SPic
-equipPosition epos cr sh = case epos of
+equipPosition :: EquipPosition -> Creature -> Point3 -> SPic -> SPic
+equipPosition epos cr p sh = case epos of
     OnLeftWrist -> translateToLeftWrist cr sh
     OnRightWrist -> translateToRightWrist cr sh
     OnLegs ->
@@ -35,5 +32,5 @@ equipPosition epos cr sh = case epos of
             <> translateToRightLeg cr (mirrorSPxz sh)
     OnHead -> translateToHead cr sh
     OnChest -> translateToChest cr sh
-    OnBack -> translateToBack cr sh
+    OnBack -> translateToBack cr p sh
     OnSpecial -> sh