Differentiate wrist and hand positions

2022-07-11 18:21:26 +01:00
parent 53548fb1ff
commit 1506f5a83e
2 changed files with 32 additions and 3 deletions
@@ -13,8 +13,8 @@ pictureOnEquip sp cr itm = fromMaybe mempty $ do
    return $ equipPosition epos cr sp
 equipPosition :: EquipPosition -> Creature -> SPic -> SPic
 equipPosition epos cr sh = case epos of
-    OnLeftWrist -> translateToLeftHand cr sh
-    OnRightWrist -> translateToRightHand cr sh
+    OnLeftWrist -> translateToLeftWrist cr sh
+    OnRightWrist -> translateToRightWrist cr sh
    OnLegs -> translateToLeftLeg cr sh <> 
        translateToRightLeg cr (mirrorSPxz sh)
    OnHead -> translateToHead cr sh