Work on wrist shields, cleanup

2022-05-25 22:34:22 +01:00
parent 525f45efeb
commit ba80bfd0ad
5 changed files with 26 additions and 16 deletions
@@ -114,8 +114,10 @@ drawMousePosition cfig w
    mwp = mouseWorldPos w

 drawWallIDs :: Configuration -> World -> Picture
-drawWallIDs cfig w = setLayer FixedCoordLayer 
-    $ foldMap f (_walls w)
+drawWallIDs cfig w 
+    | _debug_walls cfig = setLayer FixedCoordLayer 
+        $ foldMap f (_walls w)
+    | otherwise = mempty
  where
    f wl 
        | dist (_crPos $ you w) (fst (_wlLine wl)) > 200 = mempty  -- this should be improved with a better "on screen test"