Improve doors

src/Dodge/Room/LongDoor.hs

@@ -64,7 +64,6 @@ twinSlowDoorRoom w h x =
   where
     --thewall = switchWallCol red
     thewall = defaultDoorWall
-    wlSpeed = 0.5
     lampheight = 41
     ps =
         [ rectNSWE h 0 (- w) w
@@ -72,7 +71,7 @@ twinSlowDoorRoom w h x =
         ]
     thedoor btid =
         defaultDoor
-            & drUpdate . drLerpSpeed .~ wlSpeed
+            & drUpdate . drLerpSpeed .~ 0.5
             & drTrigger .~ WdBlBtOn btid
     col = dim $ dim $ bright red
 
@@ -116,11 +115,11 @@ addButtonSlowDoor x h =
         $ \btplmnt -> Just
             . putDoubleDoorThen
                 defaultDoorWall
-                (WdBlBtOn $ fromJust $ _plMID btplmnt)
                 30
                 (V2 0 h)
                 (V2 x h)
-                0.5
+                (defaultDoor & drTrigger .~ (WdBlBtOn $ fromJust $ _plMID btplmnt)
+                    & drUpdate . drLerpSpeed .~ 0.5)
             $ \dr1 dr2 ->
                 Just
                     . sps0