Fix path updating when doors move

2025-10-22 22:27:09 +01:00
parent 59472b16d2
commit 151c037763
3 changed files with 5 additions and 10 deletions
@@ -49,7 +49,6 @@ zoneOfPoint = fmap . divTo
 zoneOfSeg :: Float -> Point2 -> Point2 -> [Int2]
 {-# INLINE zoneOfSeg #-}
 zoneOfSeg s sp ep = map (zoneOfPoint s) (sp : xIntercepts s sp ep ++ yIntercepts s sp ep)
--zoneOfSeg s sp ep = map (zoneOfPoint s) (sp : xIntercepts s sp ep )

 zoneOfSegSet :: Float -> Point2 -> Point2 -> S.Set Int2
 {-# INLINE zoneOfSegSet #-}