Simplify dust update

2025-12-02 22:25:14 +00:00
parent 22646d1702
commit fd401db97f
1 changed files with 2 additions and 2 deletions
@@ -852,14 +852,14 @@ updateDust w c
  where
    v@(V3 _ _ vz) = c ^. dsVel + sum (map (radiusSpring 10 oldPos . _dsPos)
            (dssNearPoint oldPos2 w))
-        -- foldl' (dustSpringVel c) (_dsVel c) (dssNearPoint oldPos2 w)
    newvel = 0.95 * (maybe v (addZ vz . snd) hitWl - V3 0 0 0.05)
    oldPos = _dsPos c
    oldPos2 = stripZ oldPos
    newPos@(V3 _ _ npz) = oldPos + v
    newPos2 = stripZ newPos
    hitWl = bouncePoint (const True) 1 oldPos2 newPos2 w
-    finalpos = addZ (max 1 npz) $ maybe newPos2 fst hitWl
+    --finalpos = addZ (max 1 npz) $ maybe newPos2 fst hitWl
+    finalpos = oldPos + newvel & _z %~ max 1

 radiusSpring :: Float -> Point3 -> Point3 -> Point3
 radiusSpring r a b