tracer/src/Types/StateData.hs

26 lines
486 B
Haskell
Raw Normal View History

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
2018-06-07 22:29:46 +00:00
= None
| LoadData
{ loadAssetImages :: Map ImgId Image
, loadAssetAnims :: Map AnimId Animation
}
2018-06-25 21:59:12 +00:00
| MainData
2018-06-25 21:45:53 +00:00
{ mapMat :: Matrix TileState
, imgMat :: Matrix (Maybe ImgId)
, reachPoints :: [ReachPoint]
2018-06-28 19:07:58 +00:00
, mmImgMat :: Matrix (Maybe ImgId)
}
2018-06-07 22:29:46 +00:00
deriving (Eq)