justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Tweak cloud zvel

Browse Source
This commit is contained in:
justin
2025-08-05 09:23:45 +01:00
parent b433c1de43
commit d64e785818
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update.hs
+1 -1
View File
@@ -837,7 +837,7 @@ updateCloud w c
where 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 newVel2 = stripZ newVel
vertVel = clAlt c - opz vertVel = min 5 $ clAlt c - opz
springVels = foldl' (clClSpringVel c) (_clVel c) (clsNearPoint oldPos2 w) springVels = foldl' (clClSpringVel c) (_clVel c) (clsNearPoint oldPos2 w)
oldPos@(V3 _ _ opz) = _clPos c oldPos@(V3 _ _ opz) = _clPos c
oldPos2 = stripZ oldPos oldPos2 = stripZ oldPos