Improve segment intersection test, tweak room bounding

2026-03-12 15:23:37 +00:00
parent 65383e2303
commit 24af6a731b
6 changed files with 41 additions and 30 deletions
@@ -55,20 +55,21 @@ tutAnoTree = do
 --        , return . tToBTree "door" $ treePost [corridor, cleatOnward door]
        , corDoor
 --        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
--aaa        , lasCenRunClose
--aaa--        , passthroughLockKeyLists lockRoomKeyItems itemRooms
--aaa        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
--aaa--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
--aaa--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
--aaa--            , passthroughLockKeyLists
--aaa--                    [(sensorRoomRunPast ElectricSensor, takeOne 
--aaa--                        [-- CRAFT (ENERGYBALLCRAFT TeslaBall) , 
--aaa--                        HELD SPARKGUN])]
--aaa--                    itemRooms
--aaa--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
--aaa--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
--aaa        , tToBTree "sdr" . return . cleatOnward <$> 
--aaa                (shuffleLinks =<< distributerRoom BulletAmmo 100000)
+        , lasCenRunClose
+--        , passthroughLockKeyLists lockRoomKeyItems itemRooms
+        , tToBTree "door" . return <$> return (cleatOnward door)
+        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
+--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
+--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
+--            , passthroughLockKeyLists
+--                    [(sensorRoomRunPast ElectricSensor, takeOne 
+--                        [-- CRAFT (ENERGYBALLCRAFT TeslaBall) , 
+--                        HELD SPARKGUN])]
+--                    itemRooms
+--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
+--        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
+        , tToBTree "sdr" . return . cleatOnward <$> 
+                (shuffleLinks =<< distributerRoom BulletAmmo 100000)
 --aaa--        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --aaa--        --, tToBTree "sdr" . return . cleatOnward <$> slowDoorRoom
 --aaa----        , tToBTree "sr" . return . cleatOnward <$> tanksRoom [] []