Improve possible manipulation of equipment

src/Dodge/Creature/Picture.hs

@@ -184,9 +184,9 @@ arms cr = fst $ translateToRightHand cr aHand
   where
     aHand :: SPic
     aHand = noPic $ translateSHz (-4) . upperPrismPolyHalf 4 $ polyCirc 3 4
-    off = 8
-    sLen = _strideLength $ _crStance cr
-    f i = negate 2 + negate 6 * fromIntegral (sLen - i) / fromIntegral sLen
+--    off = 8
+--    sLen = _strideLength $ _crStance cr
+--    f i = negate 2 + negate 6 * fromIntegral (sLen - i) / fromIntegral sLen
 
 scalp :: Creature -> Shape
 {-# INLINE scalp #-}
@@ -209,8 +209,8 @@ crInStance as cr = crIsAiming' cr -- || (_posture (_crStance cr) == Reloading &&
 oneH :: Creature -> Bool
 oneH = crInStance OneHand
 
-twoFlat :: Creature -> Bool
-twoFlat = crInStance TwoHandFlat
+--twoFlat :: Creature -> Bool
+--twoFlat = crInStance TwoHandFlat
 
 twists :: Creature -> Bool
 twists = crInStance TwoHandTwist
@@ -248,8 +248,8 @@ upperBody col cr = colorSH (light4 col) $ mconcat
 
 shoulderSH :: Shape -> Shape
 shoulderSH = translateSHz 20
-waistSH :: Shape -> Shape
-waistSH = translateSHz 10
+--waistSH :: Shape -> Shape
+--waistSH = translateSHz 10
 
 light4 :: Color -> Color
 light4 = light . light . light . light