From 295c50f0d9d3ac5d6b3ccaaaaecd1510edcfaaae Mon Sep 17 00:00:00 2001 From: justin Date: Mon, 23 May 2022 00:21:47 +0100 Subject: [PATCH] Correct leg equipment visuals --- src/Dodge/Creature/HandPos.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Dodge/Creature/HandPos.hs b/src/Dodge/Creature/HandPos.hs index b5d3e8f40..08fb2c9c5 100644 --- a/src/Dodge/Creature/HandPos.hs +++ b/src/Dodge/Creature/HandPos.hs @@ -50,7 +50,7 @@ translateToLeftHand cr f i = negate 2 + negate 6 * fromIntegral (sLen - i) / fromIntegral sLen translateToLeftLeg :: Creature -> SPic -> SPic -translateToLeftLeg cr = case cr ^? crStance . carriage of +translateToLeftLeg cr = rotateSP (_crMvDir cr - _crDir cr) . case cr ^? crStance . carriage of Just (Walking sa LeftForward) -> translateSPf ( f sa) off Just (Walking sa RightForward) -> translateSPf (-f sa) off _ -> translateSPf 0 off @@ -60,7 +60,7 @@ translateToLeftLeg cr = case cr ^? crStance . carriage of f i = 6 * fromIntegral (sLen - i) / fromIntegral sLen translateToRightLeg :: Creature -> SPic -> SPic -translateToRightLeg cr = case cr ^? crStance . carriage of +translateToRightLeg cr = rotateSP (_crMvDir cr - _crDir cr) . case cr ^? crStance . carriage of Just (Walking sa LeftForward) -> translateSPf (-f sa) (-off) Just (Walking sa RightForward) -> translateSPf ( f sa) (-off) _ -> translateSPf 0 (-off)