Move towards unifying door movement

src/Dodge/Data/Door.hs

@@ -16,6 +16,7 @@ import Dodge.Data.MountedObject
 import Dodge.Data.PathGraph
 import Dodge.Data.WorldEffect
 import Geometry.Data
+import qualified Data.IntMap.Strict as IM
 
 data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
     deriving Eq
@@ -35,6 +36,10 @@ data Door = Door
     , _drPos :: (Point2, Point2)
     , _drOpenPos :: (Point2, Point2)
     , _drClosePos :: (Point2, Point2)
+    , _drZeroPos :: (Point2,Float)
+    , _drOnePos :: (Point2,Float)
+    , _drLerp :: Float
+    , _drFootPrint :: IM.IntMap (Point2,Point2)
     , _drHP :: Int
     , _drDeath :: DrWdWd
     , _drSpeed :: Float

src/Dodge/Data/WorldEffect.hs

@@ -67,6 +67,7 @@ data DrWdWd
     | DrWdMakeDoorDebris
     | DrWdMechanismStepwise Int [Int] [(Point2, Point2)]
     | DoorMechanism
+    | DoorLerp
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
     --deriving (Eq, Show, Read) --, Generic)