Add haddocks

2021-04-04 18:53:43 +02:00
parent d3821fc7b3
commit b3649597fa
5 changed files with 61 additions and 21 deletions
@@ -117,12 +117,6 @@ errorClosestPointOnLineParam  !i !x! y! z
    | x == y    = dist x z
    | otherwise = closestPointOnLineParam  x y z

-- | Normalize a vector to be unit length.
-- For (0,0) return (0,0).
-safeNormalizeV :: Point2 -> Point2
-safeNormalizeV !(0,0) = (0,0)
-safeNormalizeV !p     = normalizeV p
-
 -- | Test whether a point is on the LHS of a line.
 -- Returns False if the line is of zero length.
 isLHS