tracer/src/Types/Interior.hs
2018-03-05 21:11:38 +01:00

32 lines
621 B
Haskell

module Types.Interior where
import Data.Matrix as M
-- internal imports
import Types.Map
import Types.UserData
data Cluster
= ClusterBox1
deriving (Enum, Bounded)
clusterMat :: Cluster -> Matrix (Maybe ImgId)
clusterMat ClusterBox1 =
M.fromLists
-- [ [ Nothing]
[ [Just ImgMiscBox1]
-- , [Nothing, Nothing, Nothing]
]
clusterRoom :: Cluster -> TileState
clusterRoom ClusterBox1 = Offi
instance Size Cluster where
size c =
let mat = clusterMat c
in fromIntegral ((nrows mat) * (ncols mat))
-- class ClusterData c where
-- clusterMat :: c -> Matrix (Maybe ImgId)