25 lines
486 B
Haskell
25 lines
486 B
Haskell
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
|
|
}
|
|
| MainData
|
|
{ mapMat :: Matrix TileState
|
|
, imgMat :: Matrix (Maybe ImgId)
|
|
, reachPoints :: [ReachPoint]
|
|
, mmImgMat :: Matrix (Maybe ImgId)
|
|
}
|
|
deriving (Eq)
|