Fix pathing for zChasm

src/Dodge/Room/Tutorial.hs

@@ -1,6 +1,7 @@
 {-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.Room.Tutorial where
 
+import Dodge.Room.Path
 import Dodge.Room.Pillar
 import Dodge.Room.Boss
 import Dodge.Room.Tanks
@@ -47,15 +48,6 @@ tutAnoTree = do
     foldMTRS
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
-        , tToBTree "cor" . return . cleatOnward <$> roomPillarsSquare
-        , corDoor
---        , return $ tToBTree "cor" $ return $ cleatOnward $ corridor & rmPmnts .~ mempty
---        , return $ tToBTree "cor" $ return $ cleatOnward $ roomGlassOctogon 200
---        , corDoor
---        , return $ tToBTree "cor" $ return $ cleatOnward (twinSlowDoorRoom 80 200 40)
---        , return $ tToBTree "cor" $ return $ cleatOnward corridor
---        , return $ tToBTree "cor" $ return $ cleatOnward airlock0
---        , return $ tToBTree "cor" $ return $ cleatOnward corridor
         , tToBTree "cor" . return . cleatOnward <$> (zChasm 25)
 --        , tToBTree "x" . return . cleatOnward <$> airlockSimple
 --        , tToBTree "lastun" . return . cleatOnward <$> tanksRoom [] []
@@ -173,6 +165,7 @@ zChasm z = do
     roomRectAutoLinks x y
         <&> rmLinks %~ setOutLinks (isCornerLink NorthWest)
         <&> rmLinks %~ setInLinks (isCornerLink SouthEast)
+        <&> rmPath %~ addNodesCrossing (V2 0 (y/2),V2 x (y/2))
         <&> rmPmnts
             <>~ [ sps0 $ PutChasm (rectNSWE (y / 2 - z) 0 0 (x -50))
                 , sps0 $ PutChasm (rectNSWE y (y / 2 + z) 50 x)