Hand/handle position refactor

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/Test.hs

@@ -95,7 +95,8 @@ crInAimStance as cr = crIsAiming cr && mitstance == Just as
   where
     mitstance = do
         i <- cr ^? crManipulation . manObject . imRootSelectedItem
-        itm <- invRootTrees' (cr ^. crInv) ^? ix i
+        --itm <- invRootTrees' (cr ^. crInv) ^? ix i
+        itm <- invRootTrees (cr ^. crInv) ^? ix i
         return $ aimStance itm
         --cr ^? crInv . ix i . itUse . heldAim . aimStance