Various improvements, metal debris

2022-06-23 18:53:26 +01:00
parent e3d5c4eb4b
commit 8d266a6770
18 changed files with 147 additions and 82 deletions
@@ -68,8 +68,8 @@ errorClosestPointOnLineParam  _ !x! y! z
    | otherwise = closestPointOnLineParam x y z

 -- | Return midpoint between two points.
-pHalf :: Point2 -> Point2 -> Point2
-pHalf !a !b = 0.5 *.* (a +.+ b)
+midPoint :: Point2 -> Point2 -> Point2
+midPoint !a !b = 0.5 *.* (a +.+ b)
 -- | Test whether a circle is on a segment by intersecting a new normal segment through the 
 -- center of the circle with the segment itself.
 -- Returns False if the circle center is beyond the endpoints of the