Attempt to incorporate free link positions into placement chain

2021-11-04 10:38:30 +00:00
parent f45d19a787
commit a9b802b883
6 changed files with 39 additions and 7 deletions
@@ -114,9 +114,10 @@ addButtonSlowDoor x h rm = do
    openDoorBound = rectNSEW (h + 5) (h - 5) (-x/2) (3*x/2)
    belowH y = (sndV2 . fst) y < h - 40
    aboveH y = (sndV2 . fst) y > h + 40
+    --butDoor _ _ = putLitButtonID' col butPosCond
    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
+    --butPosCond (V2 _ y,_) = y < h
    col = dim $ light red
    cond' btid w = w ^? buttons . ix btid . btState /= Just BtOff