Work on grid point creation

src/Dodge/Room/Tutorial.hs

@@ -52,7 +52,7 @@ tutAnoTree = do
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --        , return $ tToBTree "cor" $ return $ cleatOnward airlock0
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
-        , return $ tToBTree "cor" $ return $ cleatOnward airlockCrystal
+        , tToBTree "cor" . return . cleatOnward <$> (zChasm 25)
 --        , tToBTree "x" . return . cleatOnward <$> airlockSimple
 --        , tToBTree "lastun" . return . cleatOnward <$> tanksRoom [] []
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
@@ -159,10 +159,13 @@ lChasm = do
         <&> rmLinks %~ setInLinks (isCornerLink SouthEast)
         <&> rmPmnts <>~ [sps0 $ PutChasm (rectNSWE (y -50) 0 0 (x -50))]
 
+-- the Float is the width of the bridge
 zChasm :: Float -> State LayoutVars Room
 zChasm z = do
-    x <- state $ randomR (150, 300)
-    y <- state $ randomR (150, 300)
+--    x <- state $ randomR (150, 300)
+--    y <- state $ randomR (150, 300)
+    x <- return 250
+    y <- return 250
     roomRectAutoLinks x y
         <&> rmLinks %~ setOutLinks (isCornerLink NorthWest)
         <&> rmLinks %~ setInLinks (isCornerLink SouthEast)