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

This reverts commit 8f208189cc.

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