tracer/src/Types/StateData.hs

module Types.StateData where

import Data.Matrix
import Data.Map

import NanoVG

import Types.ReachPoint
import Types.Map
import Types.ImgId
import Types.Animation

data StateData
  = None
  | LoadData
    { loadAssetImages :: Map ImgId Image
    , loadAssetAnims  :: Map AnimId Animation
    , loadAssetIcons  :: Map IconId Image
    }
  | MainData
    { mapMat      :: Matrix TileState
    , imgMat      :: Matrix (Maybe ImgId)
    , reachPoints :: [ReachPoint]
    , mmImgMat    :: Matrix (Maybe ImgId)
    }
  deriving (Eq)