Fix line end bug?
authorJoachim Breitner <mail@joachim-breitner.de>
Sun, 7 Jun 2009 22:14:51 +0000 (00:14 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Sun, 7 Jun 2009 22:14:51 +0000 (00:14 +0200)
src/Lseed/Geometry.hs

index 16921fe..730f861 100644 (file)
@@ -99,7 +99,7 @@ allKindsOfStuffWithAngle angle lines = (lighted, polygons)
                -- End of a line. Calculate crosses with all open line, and remove it from the
                -- list of open lines
                step ol (x, True, (l,_)) = 
                -- End of a line. Calculate crosses with all open line, and remove it from the
                -- list of open lines
                step ol (x, True, (l,_)) = 
-                       let ol' = filter (/= l) ol
+                       let ol' = delete l ol
                            crosses = map projectPoint $ mapMaybe (crossPoint l) ol'
                        in (ol', x:crosses)
 
                            crosses = map projectPoint $ mapMaybe (crossPoint l) ol'
                        in (ol', x:crosses)