tracer/src/Navigation.hs

module Navigation where

import Affection as A

import Data.Matrix as M
import qualified Data.HashSet as HS
import Data.Maybe (isJust)

import Linear

-- internal imports

import Types.Map
import Types.UserData
import Types.Interior
import Types.ReachPoint
import Util

isReachable :: Matrix (Maybe ImgId) -> [V2 Int] -> [ReachPoint] -> Bool
isReachable imgmat reaches exits =
  let result =
        (concatMap
          (\exit -> map (astarAppl imgmat exit) reaches)
          (map pointCoord exits))
  in  all isJust result