justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2026-03-26 23:35:12 +00:00
parent 8b088425a9
commit fed607681b
6 changed files with 27 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Zoning/Creature.hs
+2 -2
View File
@@ -33,8 +33,8 @@ crixsNearSeg = nearSeg crZoneSize _crZoning
crIXsNearCirc :: Point2 -> Float -> World -> IS.IntSet
crIXsNearCirc p r = crsNearRect (p + V2 r r) (p - V2 r r)
crsNearCirc :: Point2 -> Float -> World -> [Creature]
crsNearCirc p r w = mapMaybe (\cid -> w ^? cWorld . lWorld . creatures . ix cid) . IS.toList
crsNearCirc :: Point2 -> Float -> World -> IM.IntMap Creature
crsNearCirc p r w = IM.restrictKeys (w ^. cWorld . lWorld . creatures)
$ crIXsNearCirc p r w
crsNearRect :: Point2 -> Point2 -> World -> IS.IntSet