forn ow be happy with being correct on closed line segments

hgeometry/test-with-ipe/test/LineSegment/Intersection/BentleyOttmannSpec.hs

@@ -35,8 +35,8 @@ spec = do
 testPath = [osp|test-with-ipe//LineSegment/Intersection/|]
 
 ipeSpec :: Spec
-ipeSpec = do testCases (testPath <> [osp|open_bug.ipe|])
-             -- testCases (testPath <> [osp|manual.ipe|])
+ipeSpec = do -- testCases (testPath <> [osp|open_bug.ipe|])
+             testCases (testPath <> [osp|manual.ipe|])
              -- testCases (testPath <> [osp|open.ipe|])
 
 
@@ -69,8 +69,8 @@ toSpec                      :: (Fractional r, Ord r, Show r) => TestCase r -> Sp
 toSpec (TestCase name segs) = describe ("testing segments from " <> show name) $ do
                                 samePointsAsNaive segs
                                 sameAsNaive segs
-                                it "bug" $ do
-                                  Map.toList (Naive.intersections segs) `shouldBe` []
+                                -- it "bug" $ do
+                                --   Map.toList (Naive.intersections segs) `shouldBe` []
 
 -- | Test if we have the same intersection points
 samePointsAsNaive      :: ( LineSegment_ lineSegment point

todo.org

@@ -75,10 +75,11 @@ consistent results
 ** DONE for simple polygon
 
 * TODO Line segment intersection ; i.e Benthey Otham
-** TODO the naive algorithm
+** DONE the naive algorithm
 *** DONE represent the various types of intersections
 *** DONE debug the onSideTest hyperplane function again
-*** TODO test intersection for colinear line segments incorrect
+*** DONE test intersection for colinear line segments incorrect
+** TODO benthey othham for open-ended segments.
 
 * TODO polygon triangulation
 ** DONE triangulate monotone