Tweak window rendering

2021-09-01 13:13:10 +01:00
parent ecaa5c48d0
commit ce4c3bd231
5 changed files with 27 additions and 11 deletions
@@ -184,7 +184,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.001 * vertVel))
    newVel2 = stripZ newVel
    vertVel = _clAlt c - opz
    springVels = foldl' (clClSpringVel c) (_clVel c) (cloudsNearPoint oldPos2 w)