Implement terminals

2022-03-14 20:39:23 +00:00
parent 1b6f11709c
commit f16f32d9d3
30 changed files with 313 additions and 119 deletions
@@ -41,8 +41,8 @@ tanksRoom crs its = do
    girderPosOrder <- shuffle [1 .. nwestlnks - 2]
    let plmnts = 
            --ok, this has become complicated
-            foldr1 setFallback [ twoRoomPoss (isUnusedLinkType (FromSouth i)) 
-                (isUnusedLinkType (FromSouth i)) $ \ps1 ps2 ->
+            foldr1 setFallback [ twoRoomPoss (const . isUnusedLinkType (FromSouth i)) 
+                (const . isUnusedLinkType (FromSouth i)) $ \ps1 ps2 ->
                sps0 $ PutShape $ girderV 96 20 10 (_psPos ps1) (_psPos ps2) 
                | i <- girderPosOrder]
            : map (\it -> sps0 (PutFlIt it) & plSpot .~ anyUnusedSpot) its