Move toward better info display during level generation

2021-11-10 23:40:04 +00:00
parent 9aefc11e17
commit a195157e54
13 changed files with 122 additions and 118 deletions
@@ -71,7 +71,10 @@ roomRectAutoLinks :: Float -> Float -> Room
 roomRectAutoLinks x y = (roomRect x y ((ceiling x - 40) `div` 60) ((ceiling y - 40) `div` 60))
    {_rmPS = plmnts}
  where
-    plmnts = [mntLightLnkCond (const True)]
+    plmnts = 
+        [mntLightLnkCond (const True)
+--        ,sps0 $ PutForeground $ thinHighBarChain 50 $ rectNSWE y 0 0 x
+        ]
 {- Combines two rooms into one room.
 Mostly involves concatenation.  -}
 combineRooms :: Room -> Room -> Room