Improve handle position for one handed at ease carry

src/Dodge/Creature/HandPos.hs

@@ -10,6 +10,7 @@ module Dodge.Creature.HandPos (
     backPQ,
     headPQ,
     translateToES,
+    rightHandPQ,
 ) where
 
 import Dodge.Data.Equipment.Misc

src/Dodge/Item/HeldOffset.hs

@@ -7,6 +7,7 @@ module Dodge.Item.HeldOffset (
     handHandleOrient,
 ) where
 
+import Dodge.Creature.HandPos
 import Dodge.Data.AimStance
 import Dodge.Data.ComposedItem
 import Dodge.Data.Creature
@@ -43,7 +44,8 @@ handOrient cr = case cr ^. crStance . posture of
         OneHand -> (V3 13 (-2) shoulderHeight, Q.qID)
         TwoHandFlat -> (V3 13 0 shoulderHeight, Q.qID)
     AtEase -> \case
-        OneHand -> (V3 (10 + walkhandp) (-7) 15, Q.qID)
+        --OneHand -> (V3 (10 + walkhandp) (-7) 15, Q.qID)
+        OneHand -> rightHandPQ cr
         TwoHandFlat -> (V3 10 0 15, Q.axisAngle (V3 0 0 1) $ twoFlatHRot cr)
         TwoHandUnder -> (V3 7 (-8) 15, Q.axisAngle (V3 0 0 1) (strideRot cr + 1.2))
         TwoHandOver -> (V3 10 0 15, Q.axisAngle (V3 0 0 1) (strideRot cr + 1.2))