Tweak view distances

src/Dodge/Render/ShapePicture.hs

@@ -2,6 +2,7 @@ module Dodge.Render.ShapePicture (
     worldSPic,
 ) where
 
+import Dodge.Viewpoints
 import Dodge.Render.Label
 import Dodge.WorldEvent.ThingsHit
 import Control.Lens
@@ -27,7 +28,7 @@ import Dodge.Render.InfoBox
 import Dodge.Render.List
 import Dodge.ShortShow
 import Dodge.SoundLogic.LoadSound
-import Dodge.Update.Camera
+--import Dodge.Update.Camera
 import Dodge.Zoning
 import Dodge.Zoning.Base
 import Geometry
@@ -473,9 +474,9 @@ viewBoundaries :: CWorld -> Picture
 viewBoundaries w =
     setLayer DebugLayer $
         color green (foldMap (polygonWire . _grBound) grs)
-            <> color yellow (foldMap (\q -> line [p, q]) $ farWallPoints p w)
+            <> color yellow (foldMap (\q -> line [p, q]) $ getViewpoints p w)
   where
-    p = _crPos $ youc w
+    p = w ^. camPos . camViewFrom
     grs = filter (pointInOrOnPolygon p . _grBound) (_cwgGameRooms $ _cwGen w)
 
 viewClipBounds :: Configuration -> World -> Picture