Commit before unifying positions

2021-11-03 19:01:19 +00:00
parent 903a79cf85
commit f45d19a787
7 changed files with 54 additions and 23 deletions
@@ -115,6 +115,7 @@ addButtonSlowDoor x h rm = do
    belowH y = (sndV2 . fst) y < h - 40
    aboveH y = (sndV2 . fst) y > h + 40
    butDoor bpos brot = putLitButtonID col bpos brot
+    --butDoor bpos brot = putLitButtonID' col (const True)
        $  \btid -> Just $ putDoubleDoor False col (cond' btid) (V2 0 h) (V2 x h) 2
    col = dim $ light red
    cond' btid w = w ^? buttons . ix btid . btState /= Just BtOff