Cleanup

2022-08-20 18:41:04 +01:00
parent ff9dbdf068
commit 6e598339f1
84 changed files with 58 additions and 216 deletions
@@ -245,7 +245,7 @@ farWallDistDirection p w =
    boundPoints $
        S.map f vps
  where
-    f q = (rotateV (negate $ (w ^. cWorld . cwCam . cwcRot)) . (-.- p)) (foldl' findPoint q (wls q))
+    f q = (rotateV (negate (w ^. cWorld . cwCam . cwcRot)) . (-.- p)) (foldl' findPoint q (wls q))
    wls q = filter wlIsOpaque $ wlsNearSeg p q w
    findPoint q = fromMaybe q . uncurry (intersectSegSeg p q) . _wlLine
    vps = streamViewpoints p w