Cleanup

2021-11-28 17:07:04 +00:00
parent 618653a86e
commit 5cbe394e08
28 changed files with 21 additions and 36 deletions
@@ -55,11 +55,12 @@ twinSlowDoorRoom w h x = defaultRoom
    }
  where
    wlSpeed = 0.5
-    addColorChange lsid drid' = over pjUpdate $ dbArgChain $ const f
+    addColorChange lsid drid = over pjUpdate $ dbArgChain $ const f
      where
-        f w' | _drStatus (_doors w' IM.! drid') == DoorHalfway 
-                = w' & lightSources . ix lsid . lsParam . lsCol .~ V3 8 0 0
-             | otherwise = w' & lightSources . ix lsid . lsParam . lsCol .~ 0.7
+        f u | _drStatus (_doors u IM.! drid) == DoorHalfway 
+                        = u & updatelscol (V3 8 0 0)
+            | otherwise = u & updatelscol 0.7
+        updatelscol c = lightSources . ix lsid . lsParam . lsCol .~ c
    drmoving i w' = DoorHalfway == _drStatus (_doors w' IM.! i)
    lampHeight = 41
    ps =