From b18ccf12bfa818a8e618711bd67f8adc8efa80a4 Mon Sep 17 00:00:00 2001 From: justin Date: Sun, 7 Dec 2025 11:57:18 +0000 Subject: [PATCH] Change camera auto zoom to use ratios --- src/Dodge/Update/Camera.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Dodge/Update/Camera.hs b/src/Dodge/Update/Camera.hs index 4f3d803b4..5c0a36b76 100644 --- a/src/Dodge/Update/Camera.hs +++ b/src/Dodge/Update/Camera.hs @@ -129,8 +129,10 @@ moveZoomCamera cfig theinput cr w campos = getAimZoom <$> (w ^? cWorld . lWorld . items . ix itid) newItemZoom = changeZoom (campos ^. camItemZoom) idealItemZoom changeZoom curZoom idealZoom - | curZoom > idealZoom + 0.01 = ((zoomOutSpeed -1) * curZoom + (idealZoom-0.02)) / zoomOutSpeed - | curZoom < idealZoom - 0.01 = ((zoomInSpeed -1) * curZoom + (idealZoom+0.02)) / zoomInSpeed + | curZoom > 1.02 * idealZoom + = ((zoomOutSpeed -1) * curZoom + (0.98*idealZoom)) / zoomOutSpeed + | curZoom < 0.98 * idealZoom + = ((zoomInSpeed -1) * curZoom + (1.02*idealZoom)) / zoomInSpeed | otherwise = idealZoom wallZoom = min4 (f (campos ^. camBoundDist)) f (a,b,c,d) = (a+bordersize,b-bordersize,c+bordersize,d-bordersize)