Cleanup, add a slight border to ideal camera zoom

2025-08-31 11:47:45 +01:00
parent 2a0e6d1e6e
commit 291a35f538
3 changed files with 16 additions and 8 deletions
@@ -127,7 +127,9 @@ moveZoomCamera cfig theinput cr w campos =
        | curZoom > idealZoom + 0.01 = ((zoomOutSpeed -1) * curZoom + idealZoom) / zoomOutSpeed
        | curZoom < idealZoom - 0.01 = ((zoomInSpeed -1) * curZoom + idealZoom) / zoomInSpeed
        | otherwise = idealZoom
-    wallZoom = min4 (campos ^. camBoundDist)
+    wallZoom = min4 (f (campos ^. camBoundDist))
+    f (a,b,c,d) = (a+bordersize,b-bordersize,c+bordersize,d-bordersize)
+    bordersize = 20
    min4 (a, b, c, d) = minimum [hh / maxd a, hh / maxd (- b), hw / maxd c, hw / maxd (- d)]
    maxd = max distFromEqmnt
    distFromEqmnt = viewDistanceFromItems cr