Move towards unifying some orientation code

src/Dodge/Creature/Picture.hs

@@ -135,4 +135,4 @@ shoulderSH = translateSHz 20
 
 drawEquipment :: Creature -> SPic
 {-# INLINE drawEquipment #-}
-drawEquipment cr = foldMap (itemEquipPict cr) (invLDT' $ _crInv cr)
+drawEquipment cr = foldMap (itemEquipPict cr) (invLDT $ _crInv cr)

src/Dodge/Creature/State.hs

@@ -286,7 +286,8 @@ updateAttachedItems itmtree cr =
         chainLinkOrientation
         chainLinkOrientation
         (updateItemWithOrientation cr)
-        (heldItemRelativeOrient (itmtree ^. ldtValue . _1) cr (0, Q.qID))
+        --(heldItemRelativeOrient (itmtree ^. ldtValue . _1) cr (0, Q.qID))
+        (handHandleOrient (LocLDT TopLDT itmtree) cr)
         (LocLDT TopLDT itmtree)
 
 -- need to check rotation

src/Dodge/Creature/Test.hs

@@ -96,7 +96,7 @@ crInAimStance as cr = crIsAiming cr && mitstance == Just as
     mitstance = do
         i <- cr ^? crManipulation . manObject . imRootSelectedItem
         --itm <- invRootTrees' (cr ^. crInv) ^? ix i
-        itm <- invRootTrees (cr ^. crInv) ^? ix i
+        itm <- fmap (fmap (\(a,b,_) -> (a,b))) $ invRootTrees (cr ^. crInv) ^? ix i
         return $ aimStance itm
         --cr ^? crInv . ix i . itUse . heldAim . aimStance