Remove _crTwist

src/Dodge/Data/Creature.hs

@@ -38,7 +38,7 @@ data Creature = Creature
     , _crOldDir :: Float
     , _crMvDir :: Float
     , _crMvAim :: Float
-    , _crTwist :: Float
+--    , _crTwist :: Float
     , _crType :: CreatureType
     , _crID :: Int
     , _crRad :: Float

src/Dodge/Data/Creature/Stance.hs

@@ -36,7 +36,7 @@ data FootForward
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Posture
-    = Aiming
+    = Aiming {_aimTwist :: Float}
     | AtEase
     deriving (Eq, Ord, Show, Read) --Generic, Flat)