Improve line zoning

2021-08-16 14:44:52 +02:00
parent 3192ae628f
commit c58ee6d56c
13 changed files with 197 additions and 86 deletions
@@ -226,5 +226,5 @@ visibleWalls p1 p2 ws
    . map f 
    $ IM.toList ws
  where 
-    f (i,wl) = (uncurry intersectSegSeg' (_wlLine wl) p1 p2, (i,wl))
+    f (i,wl) = (uncurry intersectSegSeg (_wlLine wl) p1 p2, (i,wl))