Implement different door speeds

2025-10-25 09:57:13 +01:00
parent 3f5f5d2c6b
commit c2cc38a642
7 changed files with 72 additions and 89 deletions
@@ -58,7 +58,7 @@ doorBetween wl cond soff pa pb speed g = case divideLine 40 pa pb of
    adoor =
        defaultDoor
            & drTrigger .~ cond
-            & drUpdate . drLerpSpeed .~ speed
+            & drUpdate .~ DoorLerp speed


 divideDoorPane ::