24 lines
471 B
Haskell
24 lines
471 B
Haskell
module Navigation where
|
|
|
|
import Affection as A
|
|
|
|
import Data.Matrix as M
|
|
import Data.Maybe (isJust)
|
|
|
|
-- internal imports
|
|
|
|
import Types
|
|
import Util
|
|
|
|
isReachable
|
|
:: Matrix (Maybe ImgId)
|
|
-> [(V2 Double, Boundaries Double)]
|
|
-> [V2 Int]
|
|
-> [ReachPoint]
|
|
-> Bool
|
|
isReachable imgmat animBounds reaches exits =
|
|
let result =
|
|
(concatMap
|
|
(\exit -> map (astarAppl imgmat animBounds exit) reaches)
|
|
(map pointCoord exits))
|
|
in all isJust result
|