Cleanup, add unpause clock

2025-06-01 09:12:18 +01:00
parent c56e3e96ee
commit b7cd91b56e
9 changed files with 138 additions and 143 deletions
@@ -190,9 +190,7 @@ setViewDistance cfig w =
        .~ sqrt (halfWidth cfig ** 2 + halfHeight cfig ** 2) / (w ^. camZoom)

 farWallDistDirection :: Point2 -> World -> Maybe (Float, Float, Float, Float)
-farWallDistDirection p w =
-    boundPoints $
-        map f $ getViewpoints p (_cWorld w)
+farWallDistDirection p w = boundPoints $ map f $ getViewpoints p (_cWorld w)
  where
    f q = (rotateV (negate (w ^. wCam . camRot)) . (-.- p)) (foldl' findPoint q (wls q))
    wls q = filter wlIsOpaque $ wlsNearSeg p q w