Partially working mounts on lerp doors

src/Dodge/Placement/PlaceSpot/TriggerDoor.hs

@@ -37,13 +37,8 @@ plDoor col eo cond l p1 p2 gw = (drid, over gwWorld addWalls $ gw & gwWorld . cW
             defaultDoor
                 { _drID = drid
                 , _drWallIDs = IS.fromList wlids
-                , _drStatus = DoorInt 0
                 , _drTrigger = cond
-                --, _drMech = DrWdMechanismStepwise nsteps wlids pss
                 , _drMech = DoorLerp
---                , _drPos = head pss
---                , _drOpenPos = head pss
---                , _drClosePos = last pss
                 , _drZeroPos = p1
                 , _drOnePos = p2
                 , _drLerp = 0
@@ -102,12 +97,7 @@ plSlideDoor dr wl eo shiftOffset a b gw =
             dr
                 { _drID = drid
                 , _drWallIDs = IS.fromList wlids
-                , _drStatus = DoorClosed
---                , _drMech = DoorMechanism
                 , _drMech = DoorLerp
-                , _drPos = (a, b)
-                , _drOpenPos = (shiftLeft a, shiftLeft b)
-                , _drClosePos = (a, b)
                 , _drZeroPos = (a, 0)
                 , _drOnePos = (shiftLeft a, 0)
                 , _drLerp = 0