Work on flying creature inertia

src/Dodge/Data/Creature/Misc.hs

@@ -29,6 +29,10 @@ data CrMvType
         , _mvTurnJit :: Float
         , _mvAimSpeed :: FloatFloat
         }
+--    | CrAccMv
+--        { _mvAcc :: Float
+--        , _mvTopSpeed :: Float
+--        }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Pulse = PulseStatus

src/Dodge/Data/Creature/Stance.hs

@@ -21,7 +21,7 @@ data Stance = Stance
 data Carriage
     = Walking {_strideAmount :: Float, _footForward :: FootForward}
     | Floating
-    | Flying {_flyHeight :: Float}
+    | Flying {_flyHeight :: Float, _flyInertia :: Float, _oldOldPos :: Point2}
     | Boosting Point2
     | Falling {_fallFlail :: Float, _fallFoot :: FootForward}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)