Cleanup

src/Dodge/Creature/Picture.hs

@@ -12,13 +12,13 @@ module Dodge.Creature.Picture
     ) where
 import Dodge.Data
 --import Dodge.Base
-import Dodge.Creature.Test
 --import Dodge.Render.InfoBox
 --import Dodge.Render.List
 --import Dodge.Creature.AlertLevel.Data
 --import Dodge.Picture.Layer
 import Dodge.Clock
 import Dodge.Creature.HandPos (translateToRightHand,translateToLeftHand)
+import Dodge.Creature.Stance
 --import Dodge.Debug.Picture
 import Picture
 import Geometry
@@ -197,24 +197,11 @@ scalp cr
   where
     fhead = colorSH (greyN 0.9) . upperPrismPolyHalf 5 $ polyCirc 4 5
 
-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
-
 --hasAmmo :: Creature -> Bool
 --hasAmmo cr = case cr ^? crInv . ix (_crInvSel cr) . itConsumption . ammoLoaded of
 --    Just x -> x > 0
 --    _ -> False
 
-oneH :: Creature -> Bool
-oneH = crInStance OneHand
-
---twoFlat :: Creature -> Bool
---twoFlat = crInStance TwoHandFlat
-
-twists :: Creature -> Bool
-twists = crInStance TwoHandTwist
-
 torso :: Creature -> Shape
 {-# INLINE torso #-}
 torso cr