From d64e785818ac455b4955c4f403607fe0b87c8d81 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Tue, 5 Aug 2025 09:23:45 +0100
Subject: [PATCH] Tweak cloud zvel

---
 src/Dodge/Update.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Dodge/Update.hs b/src/Dodge/Update.hs
index 3edf42ab9..1d6531880 100644
--- a/src/Dodge/Update.hs
+++ b/src/Dodge/Update.hs
@@ -837,7 +837,7 @@ updateCloud w c
   where
     newVel@(V3 _ _ nvz) = (0.95 *.*.* springVels) +.+.+ V3 0 0 (0.01 * vertVel)
     newVel2 = stripZ newVel
-    vertVel = clAlt c - opz
+    vertVel = min 5 $ clAlt c - opz
     springVels = foldl' (clClSpringVel c) (_clVel c) (clsNearPoint oldPos2 w)
     oldPos@(V3 _ _ opz) = _clPos c
     oldPos2 = stripZ oldPos