Tweak gibs

2022-06-04 00:40:51 +01:00
parent fa60ea0028
commit 4f4c039fec
7 changed files with 49 additions and 22 deletions
@@ -6,6 +6,10 @@ import Dodge.Data
 reflDirWall :: Point2 -> Point2 -> Wall -> Float
 reflDirWall sp ep wl = argV (reflectIn (uncurry (-.-) (_wlLine wl)) (ep -.- sp))

+-- point free nonsense
+reflVelWallDamp :: Float -> Wall -> Point2 -> Point2
+reflVelWallDamp x = reflectInParam x . uncurry (-.-) . _wlLine
+
 -- point free nonsense
 reflVelWall :: Wall -> Point2 -> Point2
 reflVelWall = reflectIn . uncurry (-.-) . _wlLine