Tweak cloud zvel

2025-08-05 09:23:45 +01:00
parent b433c1de43
commit d64e785818
1 changed files with 1 additions and 1 deletions
@@ -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