Work on Falling carriage state

src/Dodge/Data/Creature.hs

@@ -35,6 +35,7 @@ import Geometry.Data
 data Creature = Creature
     { _crPos :: Point3
     , _crOldPos :: Point3
+    , _crOldOldPos :: Point3
     , _crZVel :: Float
     , _crDir :: Float
     , _crMvDir :: Float

src/Dodge/Data/Creature/Stance.hs

@@ -21,7 +21,7 @@ data Stance = Stance
 data Carriage
     = Walking {_strideAmount :: Float, _footForward :: FootForward}
     | Floating
-    | Flying {_zSpeed :: Float, _flyInertia :: Float, _oldOldPos :: Point2}
+    | Flying {_zSpeed :: Float, _flyInertia :: Float}
     | Boosting Point2
     | Falling {_fallFlail :: Float, _fallFoot :: FootForward}
     | OnGround