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

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

diff --git a/src/Dodge/Update.hs b/src/Dodge/Update.hs
index f10f9b779..295fd5b20 100644
--- a/src/Dodge/Update.hs
+++ b/src/Dodge/Update.hs
@@ -808,10 +808,8 @@ updateCloud w c
     oldPos2 = stripZ oldPos
     newPos@(V3 _ _ npz) = oldPos + newVel
     newPos2 = stripZ newPos
-    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
+    hitWl = bouncePoint (const True) 1 oldPos2 newPos2 w
+    finalPos = addZ (max 1 $ min 90 npz) $ maybe newPos2 fst hitWl
     finalVel = newVel & _xy %~ maybe id (const . snd) hitWl
 
 updateDust :: World -> Dust -> Maybe Dust