Cleanup

2022-06-26 02:30:17 +01:00
parent 7532c4cafb
commit ee9523dabb
8 changed files with 83 additions and 172 deletions
@@ -349,7 +349,7 @@ updateCloud w c
    newPos2 = stripZ newPos
    -- the following only tests for the first collision with a wall
    --hitWl = collidePointAnyWallsReflect oldPos2 newPos2 $ wallsNearPoint newPos2 w
-    hitWl = reflectPointWallsDamp (const True) 1 oldPos2 newPos2 w
+    hitWl = bouncePoint (const True) 1 oldPos2 newPos2 w
    finalPos = addZ (min 74 npz) $ maybe newPos2 fst hitWl
        -- allowing clouds at/above height 75 causes graphical glitches 22.05.23
    finalVel = addZ nvz $ maybe newVel2 snd hitWl