From 984a114310c71e3eb35922b690c55dcd90ff2168 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Tue, 2 Dec 2025 21:28:10 +0000
Subject: [PATCH] Simplify clouds

---
 src/Dodge/Update.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Dodge/Update.hs b/src/Dodge/Update.hs
index be01bcf3a..86025ce03 100644
--- a/src/Dodge/Update.hs
+++ b/src/Dodge/Update.hs
@@ -808,10 +808,10 @@ updateCloud w c
     springVels = foldl' (clClSpringVel c) (_clVel c) (clsNearPoint oldPos2 w)
     oldPos@(V3 _ _ opz) = _clPos c
     oldPos2 = stripZ oldPos
-    newPos@(V3 _ _ npz) = oldPos +.+.+ newVel
+    newPos@(V3 _ _ npz) = oldPos + newVel
     newPos2 = stripZ newPos
     hitWl = bouncePoint (const True) 1 oldPos2 newPos2 w
-    finalPos = addZ (max 1 $ min 90 npz) $ maybe newPos2 fst hitWl
+    finalPos = addZ (min 90 npz) $ maybe newPos2 fst hitWl
     finalVel = addZ nvz $ maybe newVel2 snd hitWl
 
 updateDust :: World -> Dust -> Maybe Dust
@@ -831,11 +831,11 @@ updateDust w c
     newPos@(V3 _ _ npz) = oldPos + v
     newPos2 = stripZ newPos
     hitWl = bouncePoint (const True) 1 oldPos2 newPos2 w
-    finalpos = addZ (max 1 $ min 90 npz) $ maybe newPos2 fst hitWl
+    finalpos = addZ (max 1 npz) $ maybe newPos2 fst hitWl
 
 clClSpringVel :: Cloud -> Point3 -> Cloud -> Point3
 clClSpringVel a v b
-    | dist3 pa pb < radDist = v +.+.+ 0.1 *.*.* normalizeV3 (pa -.-.- pb)
+    | dist3 pa pb < radDist = v + 0.1 *^ normalizeV3 (pa - pb)
     | otherwise = v
   where
     pa = _clPos a