Add new files

2021-08-13 12:28:17 +02:00
parent 53555865f6
commit 5829c66527
21 changed files with 377 additions and 318 deletions
@@ -122,4 +122,7 @@ projV fromv onv
    | otherwise = (fromv `dotV` onv) / den *.* onv
  where
    den = onv `dotV` onv
-
+-- | Return distance between two points.
+dist :: Point2 -> Point2 -> Float
+{-# INLINE dist #-}
+dist !p1 !p2 = magV (p2 -.- p1)