Slight cleanup

2021-09-03 10:58:06 +01:00
parent 1bbeb926a5
commit 083000c103
9 changed files with 30 additions and 21 deletions
@@ -184,7 +184,7 @@ updateCloud w c
        & clTimer -~ 1
        )
  where
-    newVel@(V3 _ _ nvz) = (0.95 *.*.* springVels) +.+.+ (V3 0 0 (0.001 * vertVel))
+    newVel@(V3 _ _ nvz) = (0.95 *.*.* springVels) +.+.+ V3 0 0 (0.001 * vertVel)
    newVel2 = stripZ newVel
    vertVel = _clAlt c - opz
    springVels = foldl' (clClSpringVel c) (_clVel c) (cloudsNearPoint oldPos2 w)