Tweak weapon pictures

src/Dodge/Creature/Picture.hs

@@ -165,11 +165,14 @@ arms cr
         [ translateSHf 12 4    aHand
         , translateSHf 4 (-10) aHand
         ]
+    | twoFlat cr = waistSH $ translateSHf 4 8 aHand
+        <> translateSHf 4 (-8) aHand
     | otherwise = case cr ^? crStance . carriage of
         Just (Walking sa LeftForward)  -> waistSH $ translateSHf (-f sa) (-off) aHand
         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
     crad = _crRad cr
@@ -192,6 +195,11 @@ oneH cr = crIsAiming' cr && crIt ^? itAimStance == Just OneHand
   where
     crIt = _crInv cr IM.! _crInvSel cr
 
+twoFlat :: Creature -> Bool
+twoFlat cr = crIsAiming' cr && crIt ^? itAimStance == Just TwoHandFlat
+  where
+    crIt = _crInv cr IM.! _crInvSel cr
+
 twists :: Creature -> Bool
 twists cr = crIsAiming' cr && crIt ^? itAimStance == Just TwoHandTwist
   where