Partially working mounts on lerp doors

src/Dodge/Data/Door.hs

@@ -18,8 +18,8 @@ import Dodge.Data.WorldEffect
 import Geometry.Data
 import qualified Data.IntMap.Strict as IM
 
-data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
-    deriving Eq
+--data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
+--    deriving Eq
 
 data PushSource
     = PushesItself
@@ -30,12 +30,8 @@ data PushSource
 data Door = Door
     { _drID :: Int
     , _drWallIDs :: IS.IntSet
-    , _drStatus :: DoorStatus
     , _drTrigger :: WdBl
     , _drMech :: DrWdWd
-    , _drPos :: (Point2, Point2)
-    , _drOpenPos :: (Point2, Point2)
-    , _drClosePos :: (Point2, Point2)
     , _drZeroPos :: (Point2,Float)
     , _drOnePos :: (Point2,Float)
     , _drLerp :: Float
@@ -51,6 +47,6 @@ data Door = Door
     }
 
 makeLenses ''Door
-deriveJSON defaultOptions ''DoorStatus
+--deriveJSON defaultOptions ''DoorStatus
 deriveJSON defaultOptions ''PushSource
 deriveJSON defaultOptions ''Door