nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

enable parallel walk of NPCs

Browse source
This commit is contained in:
nek0 2018-04-25 14:44:28 +02:00
parent 366b79ecef
commit b6deacbf14
1 changed files with 21 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
src/Util.hs
View file

@ -133,11 +133,25 @@ astarAppl imgmat target start = aStar
naviGraph :: Matrix (Maybe ImgId) -> V2 Int -> HS.HashSet (V2 Int)
naviGraph imgmat (V2 r c) =
let list = foldl
(\acc (or, oc) -> if null (imgObstacle $ imgmat M.! (r + or, c + oc))
then if or == 0 && oc == 0 then acc else V2 (r + or) (c + oc): acc
else acc
)
[]
[(0, 1), (0, -1), (1, 0), (-1, 0)]
let list =
foldl
(\acc (or, oc) ->
if null (imgObstacle $ imgmat M.! (r + or, c + oc))
then V2 (r + or) (c + oc): acc
else acc
)
[]
[(0, 1), (0, -1), (1, 0), (-1, 0)]
++
foldl
(\acc (or, oc) ->
if all null
(map
(\(oor, ooc) -> imgObstacle $ imgmat M.! (r + oor, c + ooc))
[(0, oc), (or, 0), (or, oc)])
then V2 (r + or) (c + oc): acc
else acc
)
[]
[(-1, -1), (-1, 1), (1, -1), (1, 1)]
in HS.fromList list