checkLength :: Double -> Bool -> (Point, Point) -> Bool
checkLength seg b (p1,p2) = b && fuzzyEqual seg (lineLength p1 p2)
checkLength :: Double -> Bool -> (Point, Point) -> Bool
checkLength seg b (p1,p2) = b && fuzzyEqual seg (lineLength p1 p2)
checkLength seg b (p1,p2) = b && fuzzyEqual seg (lineLength p1 p2)