Simplify laser reflection/refraction

src/Dodge/Room/Tutorial.hs

@@ -48,7 +48,7 @@ tutAnoTree = do
     foldMTRS
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
-        , tToBTree "cor" . return . cleatOnward <$> (zChasm 25)
+        , tToBTree "cor" . return . cleatOnward <$> polyChasmC 6 120
 --        , tToBTree "x" . return . cleatOnward <$> airlockSimple
 --        , tToBTree "lastun" . return . cleatOnward <$> tanksRoom [] []
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
@@ -158,10 +158,8 @@ lChasm = do
 -- 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 <- return 250
-    y <- return 250
+    x <- state $ randomR (150, 300)
+    y <- state $ randomR (150, 300)
     roomRectAutoLinks x y
         <&> rmLinks %~ setOutLinks (isCornerLink NorthWest)
         <&> rmLinks %~ setInLinks (isCornerLink SouthEast)