Fix aiming with no weapon crash

src/Geometry.hs

@@ -164,6 +164,13 @@ diffAngles x y
     | otherwise  = diffAngles (x + 2*pi) y
   where 
     diff = x-y
+
+mixAngles :: Float -> Float -> Float -> Float
+mixAngles frac a1 a2
+    | abs (a1 - a2) <= pi = normalizeAngle $ frac * a1 + (1 - frac) * a2
+    | a1 > a2   = mixAngles frac (a1 - 2*pi) a2
+    | otherwise = mixAngles frac (a1 + 2*pi) a2
+
 -- | Return Just a point if it is inside a circle, Nothing otherwise.
 pointInCircle :: Point2 -> Float -> Point2 -> Maybe Point2
 pointInCircle p r c