Zone creatures

2022-06-28 11:20:20 +01:00
parent f0a1e0685a
commit 61ad58c04a
10 changed files with 75 additions and 106 deletions
@@ -123,8 +123,8 @@ itemBlips p r = IM.elems . IM.filter f . fmap _flItPos . _floorItems

 wallBlips :: Point2 -> Float -> World -> [Point2]
 wallBlips p r w = runIdentity . S.toList_ $ S.mapMaybe (uncurry (intersectCircSegFirst p r) . _wlLine)
-        $ S.map (over wlLine swp) (wallsAlongCirc' p r w)
-                      <> wallsAlongCirc' p r w
+        $ S.map (over wlLine swp) (wallsInsideCirc p r w)
+                      <> wallsInsideCirc p r w
  where
    swp (a,b) = (b,a)