Allow for door destruction

src/Dodge/Update/Camera.hs

@@ -18,6 +18,7 @@ import LensHelp
 
 --import qualified Data.List.NonEmpty as NEL
 --import Control.Applicative
+import Data.Foldable
 import Data.Maybe
 import Control.Monad
 import qualified Data.Set as S
@@ -206,16 +207,16 @@ farWallDist p cfig w = (winFac /)
     wos = wallsOnScreen cfig w
     distFromEqmnt = foldr max 1 $ IM.mapMaybe (_eqViewDist . _eqEq. _itUse) $ getCrEquipment $ you w
 
-farWallDistDirection :: Point2 -> Configuration -> World -> (Float,Float,Float,Float)
---farWallDist p cfig w = (winFac /) . min maxViewDistance $ ssfold (> maxViewDistance) findMax 1 vps
-farWallDistDirection p cfig w = foldr (m . f) (0,0,0,0) vps
+farWallDistDirection :: Point2 -> World -> (Float,Float,Float,Float)
+farWallDistDirection p w = foldl' (flip (m . f)) (0,0,0,0) vps
   where
-    f q = g $ rotateV (negate $ _cameraRot w) $ collidePointWallsFilt' wlIsOpaque p q wos -.- p
+    --f q = g $ rotateV (negate $ _cameraRot w) $ collidePointWallsFilt' wlIsOpaque p q wos -.- p
+    f q = g $ rotateV (negate $ _cameraRot w) 
+        $ collidePointWallsFilt' wlIsOpaque p q (wallsAlongLine p q w) -.- p
     g (V2 x y) = (y, negate y, x, negate x)
     m (a,b,c,d) (x,y,z,w') = (max a x, max b y, max c z, max d w')
     vps = concatMap _grViewpoints grs ++ extendedViewPoints p grs
     grs = filter (pointInOrOnPolygon p . _grBound) (_gameRooms w)
-    wos = wallsOnScreen cfig w
 
 extendedViewPoints :: Point2 -> [GameRoom] -> [Point2]
 extendedViewPoints p grs = map extend