Cleanup bullet damage

2021-11-01 17:20:25 +00:00
parent e4c73b9b8b
commit 0dcb1d2c07
3 changed files with 28 additions and 15 deletions
@@ -0,0 +1,11 @@
+module Dodge.Wall.Reflect
+    where
+import Geometry
+import Dodge.Data
+
+reflDirWall :: Point2 -> Point2 -> Wall -> Float
+reflDirWall sp ep wl = argV (reflectIn (uncurry (-.-) (_wlLine wl)) (ep -.- sp))
+
+-- point free nonsense
+reflVelWall :: Wall -> Point2 -> Point2
+reflVelWall = reflectIn . uncurry (-.-) . _wlLine