Cleanup

src/Dodge/Creature/HandPos.hs

@@ -1,6 +1,6 @@
 module Dodge.Creature.HandPos where
 import Dodge.Data
-import Dodge.Creature.Test
+import Dodge.Creature.Stance
 --import Shape
 import ShapePicture
 import Geometry
@@ -92,20 +92,7 @@ translateToChest cr
     | twists cr = rotateSP (-1)
     | otherwise = id
 
-oneH :: Creature -> Bool
-oneH = crInStance OneHand
-
-twoFlat :: Creature -> Bool
-twoFlat = crInStance TwoHandFlat
-
-twists :: Creature -> Bool
-twists = crInStance TwoHandTwist
-
 shoulderSP :: SPic -> SPic
 shoulderSP = translateSPz 20
 waistSP :: SPic -> SPic
 waistSP = translateSPz 10
-
-crInStance :: AimStance -> Creature -> Bool
-crInStance as cr = crIsAiming' cr -- || (_posture (_crStance cr) == Reloading && hasAmmo cr)
-    && cr ^? crInv . ix (_crInvSel cr) . itUse . useAim . aimStance == Just as