Implement tracking rockets

2022-03-01 18:22:47 +00:00
parent fd62b5a3b7
commit 910542a96a
11 changed files with 118 additions and 31 deletions
@@ -156,6 +156,7 @@ isLeftOf :: Point2 -> Point2 -> Bool
 isLeftOf x y = isLeftOfA (argV x) (argV y)
 -- | Find the difference between two angles.
 -- Possibly not correct...
+-- TODO write tests
 diffAngles :: Float -> Float -> Float
 diffAngles x y 
    | diff > pi  = diffAngles (x - 2*pi) y