Cleanup

2025-11-20 16:05:02 +00:00
parent 602b162d41
commit bbb682242d
3 changed files with 8 additions and 5 deletions
@@ -805,7 +805,7 @@ updateCloud w c
                & clTimer -~ 1
        )
  where
-    newVel@(V3 _ _ nvz) = (0.95 *.*.* springVels) +.+.+ V3 0 0 (0.01 * vertVel)
+    newVel@(V3 _ _ nvz) = (0.95 *^ springVels) + V3 0 0 (0.01 * vertVel)
    newVel2 = stripZ newVel
    vertVel = min 5 $ clAlt c - opz
    springVels = foldl' (clClSpringVel c) (_clVel c) (clsNearPoint oldPos2 w)