Commit on return after gap
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user