From 8f208189cc0ad3401c869f6bad5ff1d2a6d05308 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Tue, 2 Dec 2025 21:14:26 +0000
Subject: [PATCH] Tweak clouds, bad flicker when fading out with lower clouds
 beneath

---
 src/Dodge/Update.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/Dodge/Update.hs b/src/Dodge/Update.hs
index 295fd5b20..f10f9b779 100644
--- a/src/Dodge/Update.hs
+++ b/src/Dodge/Update.hs
@@ -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