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

2025-12-02 21:14:26 +00:00
parent bd50262ca4
commit 8f208189cc
1 changed files with 4 additions and 2 deletions
@@ -808,8 +808,10 @@ updateCloud w c
    oldPos2 = stripZ oldPos
    newPos@(V3 _ _ npz) = oldPos + newVel
    newPos2 = stripZ newPos
-    hitWl = bouncePoint (const True) 1 oldPos2 newPos2 w
-    finalPos = addZ (max 1 $ min 90 npz) $ maybe newPos2 fst hitWl
+    hitWl = bouncePoint (const True) 1 (oldPos ^. _xy) (newPos ^. _xy) w
+--    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

 updateDust :: World -> Dust -> Maybe Dust