Refactor wall points from lists to pairs

2021-05-04 01:31:55 +02:00
parent e21178b688
commit 6d4c17fc07
23 changed files with 260 additions and 255 deletions
@@ -211,7 +211,7 @@ visibleWalls p1 p2 ws
    . map f 
    $ IM.toList ws
  where 
-    f (i,wl) = (intersectSegSeg' (_wlLine wl !! 0) (_wlLine wl !! 1) p1 p2, (i,wl))
+    f (i,wl) = (uncurry intersectSegSeg' (_wlLine wl) p1 p2, (i,wl))
    takeUntil h xs = 
        let (ys,zs) = span h xs
        in ys ++ tf zs