Commit on return after gap

This commit is contained in:
2025-03-27 18:22:57 +00:00
parent 4932952ed4
commit 836a3d9dd3
7 changed files with 80 additions and 39 deletions
+1 -5
View File
@@ -192,11 +192,7 @@ dist :: Point2 -> Point2 -> Float
dist !p1 !p2 = magV (p2 -.- p1)
-- | Finds a new angle a given fraction between two other angles
tweenAngles ::
Float ->
Float ->
Float ->
Float
tweenAngles :: Float -> Float -> Float -> Float
{-# INLINE tweenAngles #-}
tweenAngles frac a1 a2
| abs (a1 - a2) < pi = frac * (a1 - a2) + a2