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)