27 lines
523 B
Haskell
27 lines
523 B
Haskell
module Types.StateData where
|
|
|
|
import Data.Matrix
|
|
import Data.Map
|
|
import Data.Text
|
|
|
|
import NanoVG
|
|
|
|
import Types.ReachPoint
|
|
import Types.Map
|
|
import Types.ImgId
|
|
import Types.FontId
|
|
import Types.Animation
|
|
|
|
data StateData
|
|
= None
|
|
| LoadData
|
|
{ loadAssetImages :: Map ImgId Image
|
|
, loadAssetAnims :: Map AnimId Animation
|
|
}
|
|
| MainData
|
|
{ mapMat :: Matrix TileState
|
|
, imgMat :: Matrix (Maybe ImgId)
|
|
, reachPoints :: [ReachPoint]
|
|
, mmImgMat :: Matrix (Maybe ImgId)
|
|
}
|
|
deriving (Eq)
|