justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Tweak zooming speed

Browse Source
This commit is contained in:
justin
2025-12-06 00:28:41 +00:00
parent 189c3da84f
commit 126fe4d4e7
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update/Camera.hs
+2 -2
View File
@@ -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)