Various tweaks

src/Dodge/Base.hs

@@ -67,21 +67,6 @@ wallsOnCirc p r = IM.filter f
   where 
     f wl = uncurry circOnSeg (_wlLine wl) p r
 
-wallsOnScreen :: World -> IM.IntMap Wall
-wallsOnScreen w -- = wallsNearZones (zoneOfScreen w) w
-    = foldl' (flip $ IM.union . \i -> innerFold (f i (_wallsZone w))) IM.empty xs
-  where 
-    innerFold m = foldl' (flip $ IM.union . \ j -> f j m) IM.empty ys
-
-    f i m = case IM.lookup i m of 
-        Just val -> val
-        _        -> IM.empty
-    (x,y) = zoneOfPoint $ _cameraCenter w
-    n = ceiling (wh / (_cameraZoom w * zoneSize))
-    wh = max (getWindowX w) (getWindowY w)
-    xs = [x - n .. x + n]
-    ys = [y - n .. y + n]
-
 allWalls :: World -> IM.IntMap Wall
 allWalls w = IM.unions $ concatMap IM.elems $ IM.elems $ _wallsZone w