Make combine and tweak menus servicable

src/Dodge/Creature/Picture.hs

@@ -166,7 +166,6 @@ arms cr
         Just (Walking sa RightForward) -> waistSH $ translateSHf (-f sa) off    aHand
         _ -> emptySH 
   where
-    --crIt = _crInv cr IM.! _crInvSel cr
     aHand :: Shape
     aHand = translateSHz (-4) . upperPrismPolyHalf 4 $ polyCirc 3 4
     off = 8
@@ -182,20 +181,18 @@ scalp cr
   where
     fhead = colorSH (greyN 0.9) . upperPrismPolyHalf 5 $ polyCirc 4 5
 
+crInStance :: AimStance -> Creature -> Bool
+crInStance as cr = crIsAiming' cr 
+    && cr ^? crInv . ix (_crInvSel cr) . itUse . useAim . aimStance == Just as
+
 oneH :: Creature -> Bool
-oneH cr = crIsAiming' cr && crIt ^? itUse . useAim . aimStance == Just OneHand
-  where
-    crIt = _crInv cr IM.! _crInvSel cr
+oneH = crInStance OneHand
 
 twoFlat :: Creature -> Bool
-twoFlat cr = crIsAiming' cr && crIt ^? itUse . useAim . aimStance == Just TwoHandFlat
-  where
-    crIt = _crInv cr IM.! _crInvSel cr
+twoFlat = crInStance TwoHandFlat
 
 twists :: Creature -> Bool
-twists cr = crIsAiming' cr && crIt ^? itUse . useAim . aimStance == Just TwoHandTwist
-  where
-    crIt = _crInv cr IM.! _crInvSel cr
+twists = crInStance TwoHandTwist
 
 torso :: Creature -> Shape
 {-# INLINE torso #-}
@@ -244,9 +241,7 @@ light4 = light . light . light . light
 --  where
 --    setPos = translate 0 (_crRad cr)
 
-drawEquipment 
-    :: Creature 
-    -> SPic
+drawEquipment :: Creature -> SPic
 {-# INLINE drawEquipment #-}
 drawEquipment cr = mconcat $ map f $ IM.toList (_crInv cr)
   where