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

Tweak clouds, bad flicker when fading out with lower clouds beneath

Browse Source
This commit is contained in:
justin
2025-12-02 21:14:26 +00:00
parent bd50262ca4
commit 8f208189cc
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update.hs
+4 -2
View File
@@ -808,8 +808,10 @@ updateCloud w c
oldPos2 = stripZ oldPos oldPos2 = stripZ oldPos
newPos@(V3 _ _ npz) = oldPos + newVel newPos@(V3 _ _ npz) = oldPos + newVel
newPos2 = stripZ newPos newPos2 = stripZ newPos
hitWl = bouncePoint (const True) 1 oldPos2 newPos2 w hitWl = bouncePoint (const True) 1 (oldPos ^. _xy) (newPos ^. _xy) w
finalPos = addZ (max 1 $ min 90 npz) $ maybe newPos2 fst hitWl -- finalPos = addZ (max 1 $ min 90 npz) $ maybe newPos2 fst hitWl
finalPos = newPos & _xy %~ maybe id (const . fst) hitWl
& _z %~ min 90
finalVel = newVel & _xy %~ maybe id (const . snd) hitWl finalVel = newVel & _xy %~ maybe id (const . snd) hitWl
updateDust :: World -> Dust -> Maybe Dust updateDust :: World -> Dust -> Maybe Dust