More cleverly set maximum view distance for rectangular window sizes

2022-06-26 11:30:02 +01:00
parent 15b98e38ac
commit 6c571d1878
7 changed files with 27 additions and 28 deletions
@@ -41,6 +41,6 @@ initialWorld = defaultWorld
    }

 testStringInit :: Configuration -> World -> [String]
-testStringInit cfig _ = [show $ _windowY cfig]
+testStringInit _ w = [show $ _boundDist w]
 --testStringInit = map (show . _drStatus) . IM.elems . _doors
 --testStringInit = const . const []