Start simplifying/removing Wall records

src/Dodge/Placement/Instance/Door.hs

@@ -56,7 +56,7 @@ doorBetween eo wl cond soff pa pb speed g = case divideLine 40 pa pb of
     adoor =
         defaultDoor
             & drTrigger .~ cond
-            & drSpeed .~ speed
+            & drUpdate . drLerpSpeed .~ speed
 
 divideDoorPane ::
     Maybe Int ->
@@ -74,7 +74,7 @@ divideDoorPane mid wl cond soff speed ppairs g = case ppairs of
   where
     adoor (x, y) = PutSlideDr thedoor wl mempty soff x y
     thedoor =
-        defaultDoor & drSpeed .~ speed & drTrigger .~ cond
+        defaultDoor & drUpdate . drLerpSpeed .~ speed & drTrigger .~ cond
             & drPushedBy .~ maybe PushesItself PushedBy mid
 
 putAutoDoor :: Point2 -> Point2 -> Placement
@@ -117,7 +117,7 @@ switchDoor btpos btrot dra drb col = pContID
         thedoor =
             defaultDoor
                 & drTrigger .~ WdBlBtOn btid
-                & drSpeed .~ 2
+                & drUpdate . drLerpSpeed .~ 2
     drc = 0.5 *.* (dra +.+ drb)
 
 --cond btid w' = _btState (_buttons w' IM.! btid) == BtOn