From 126fe4d4e7f306511ea88b19fdf96d344750e7ca Mon Sep 17 00:00:00 2001 From: justin Date: Sat, 6 Dec 2025 00:28:41 +0000 Subject: [PATCH] Tweak zooming speed --- src/Dodge/Update/Camera.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Dodge/Update/Camera.hs b/src/Dodge/Update/Camera.hs index 18b0089ee..4f3d803b4 100644 --- a/src/Dodge/Update/Camera.hs +++ b/src/Dodge/Update/Camera.hs @@ -129,8 +129,8 @@ 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) / zoomOutSpeed - | curZoom < idealZoom - 0.01 = ((zoomInSpeed -1) * curZoom + idealZoom) / zoomInSpeed + | curZoom > idealZoom + 0.01 = ((zoomOutSpeed -1) * curZoom + (idealZoom-0.02)) / zoomOutSpeed + | curZoom < idealZoom - 0.01 = ((zoomInSpeed -1) * curZoom + (idealZoom+0.02)) / zoomInSpeed | otherwise = idealZoom wallZoom = min4 (f (campos ^. camBoundDist)) f (a,b,c,d) = (a+bordersize,b-bordersize,c+bordersize,d-bordersize)