tracer/src/Navigation.hs

25 lines
478 B
Haskell
Raw Normal View History

module Navigation where
import Affection as A
import Data.Matrix as M
2018-10-14 22:26:12 +00:00
import Data.Maybe (isJust, catMaybes)
-- internal imports
import Types
2018-04-14 16:43:05 +00:00
import Util
2018-07-21 19:10:32 +00:00
isReachable
:: Matrix (Maybe ImgId)
-> [(V2 Double, Boundaries Double)]
-> [V2 Int]
-> [ReachPoint]
-> Bool
isReachable imgmat animBounds reaches exits =
2018-04-14 16:43:05 +00:00
let result =
2018-09-02 08:44:33 +00:00
concatMap
((\exit -> map (astarAppl imgmat animBounds exit) reaches) . pointCoord)
exits
in all isJust result