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

Tweak charmap; tweak zoom

Browse Source
This commit is contained in:
justin
2025-12-07 12:16:46 +00:00
parent b18ccf12bf
commit 1d53ff4277
9 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/StartNewGame.hs
+4 -4
View File
@@ -35,10 +35,10 @@ startPara =
]
<> makeParagraph
55
( "My last memory is the reconstitution scan. "
<> "Though experimental, this techology allows for perfect duplication. "
<> "At least in theory, "
<> "it hasn't been tested on humans. "
( "My last memory is the pre-duplication scan. "
<> "Though experimental, this techology allows for the creation of perfect copies. "
<> "At least in theory; "
<> "it hasn't been tested on humans: "
<> "I'd only be duplicated if my original body was... non-functional."
)
<> ["", "","", "Hopefully I can take better care of this one."]
src/Dodge/Update/Camera.hs
+4 -4
View File
@@ -129,10 +129,10 @@ moveZoomCamera cfig theinput cr w campos =
getAimZoom <$> (w ^? cWorld . lWorld . items . ix itid)
newItemZoom = changeZoom (campos ^. camItemZoom) idealItemZoom
changeZoom curZoom idealZoom
| curZoom > 1.02 * idealZoom
= ((zoomOutSpeed -1) * curZoom + (0.98*idealZoom)) / zoomOutSpeed
| curZoom < 0.98 * idealZoom
= ((zoomInSpeed -1) * curZoom + (1.02*idealZoom)) / zoomInSpeed
| curZoom > 1.01 * idealZoom
= ((zoomOutSpeed -1) * curZoom + (0.99*idealZoom)) / zoomOutSpeed
| curZoom < 0.99 * idealZoom
= ((zoomInSpeed -1) * curZoom + (1.01*idealZoom)) / zoomInSpeed
| otherwise = idealZoom
wallZoom = min4 (f (campos ^. camBoundDist))
f (a,b,c,d) = (a+bordersize,b-bordersize,c+bordersize,d-bordersize)