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

Change camera auto zoom to use ratios

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