Start simplifying creature body parts/attachment positioning

src/Dodge/Item/HeldOffset.hs

@@ -50,7 +50,7 @@ handOrient cr = case cr ^. crStance . posture of
     walkhandp = case cr ^? crStance . carriage of
         Just (Walking x LeftForward) -> f x * 50 -2
         _ -> - 2
-    f i = 0.1 * fromIntegral (sLen - i) / fromIntegral sLen
+    f i = 0.1 * (sLen - i) / sLen
     sLen = _strideLength $ _crStance cr
 
 locOrient :: LocationDT OItem -> Creature -> Point3Q
@@ -74,7 +74,7 @@ strideRot cr = case cr ^? crStance . carriage of
     Just (Walking x RightForward) -> - f x
     _ -> 0
   where
-    f i = 0.1 * fromIntegral (sLen - i) / fromIntegral sLen
+    f i = 0.1 * (sLen - i) / sLen
     sLen = _strideLength $ _crStance cr
 
 twoFlatHRot :: Creature -> Float