Identify broken wall collisions

2021-11-19 00:35:04 +00:00
parent 15f2c419d2
commit b1a49bbdc3
13 changed files with 112 additions and 24 deletions
@@ -68,6 +68,12 @@ wallsOnLine p1 p2 ws = hitWalls
    hitPoint w = uncurry (intersectSegSeg p1 p2) (_wlLine w)
    hitWalls = filter (isJust . hitPoint) (IM.elems ws)

+wallsOnLine3D :: Point3 -> Point3 -> IM.IntMap Wall -> [Wall]
+wallsOnLine3D = undefined
+--  where 
+--    hitPoint w = uncurry (intersectSegSeg p1 p2) (_wlLine w)
+--    hitWalls = filter (isJust . hitPoint) (IM.elems ws)
+
 wallsOnCirc :: Point2 -> Float -> IM.IntMap Wall -> IM.IntMap Wall
 wallsOnCirc p r = IM.filter f
  where