Add new bullet trajectories

2022-02-28 13:19:07 +00:00
parent 1e5f24c8a1
commit 419fcd0ff0
18 changed files with 285 additions and 101 deletions
@@ -0,0 +1,22 @@
+module Dodge.Movement.Turn where
+import Geometry
+
+turnTo :: Float -> Point2 -> Point2 -> Float -> Float
+turnTo turnSpeed sp tp a
+    | vToTarg == V2 0 0 = a
+    | angleVV vToTarg vdir <= turnSpeed
+                                = argV vToTarg
+    | isLHS (sp +.+ vdir) sp tp = a - turnSpeed
+    | otherwise                 = a + turnSpeed
+  where
+    vdir = unitVectorAtAngle a
+    vToTarg = tp -.- sp
+
+vecTurnTo :: Float -> Point2 -> Point2 -> Point2 -> Point2
+vecTurnTo turnSpeed sp tp vdir
+    | angleVV vToTarg vdir <= turnSpeed
+                                = argV vdir *.* normalizeV vToTarg
+    | isLHS (sp +.+ vdir) sp tp = rotateV (negate turnSpeed) vdir
+    | otherwise                 = rotateV turnSpeed vdir
+  where
+    vToTarg = tp -.- sp