Fix wall zoning

2022-06-27 09:56:54 +01:00
parent 7778fb0403
commit 90af97ee22
15 changed files with 128 additions and 34 deletions
@@ -41,10 +41,10 @@ initialAnoTree :: Annotation
 initialAnoTree = OnwardList 
        $ intersperse (AnTree corDoor)
    [ IntAnno $ AnTree . startRoom
-    , AnRoom slowDoorRoom
-    , AnRoom $ roomCCrits 10
-    , AnTree firstBreather
-    , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
+--    , AnRoom slowDoorRoom
+--    , AnRoom $ roomCCrits 10
+--    , AnTree firstBreather
+--    , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
    ]

 extraAnoList :: [Annotation]