nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

add a group of tables

Browse source
This commit is contained in:
nek0 2018-04-01 04:51:15 +02:00
parent d57e502c74
commit 173494c568
1 changed files with 22 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/Types/Interior.hs
View file

@ -10,6 +10,7 @@ import Types.UserData
data Cluster data Cluster
= ClusterBox1 = ClusterBox1
| ClusterCornerTable | ClusterCornerTable
| ClusterTableGroup
deriving (Enum, Bounded) deriving (Enum, Bounded)
clusterMat :: Cluster -> Matrix (Maybe ImgId) clusterMat :: Cluster -> Matrix (Maybe ImgId)
@ -22,13 +23,32 @@ clusterMat ClusterBox1 =
clusterMat ClusterCornerTable = clusterMat ClusterCornerTable =
M.fromLists M.fromLists
[ [Just ImgEmpty, Just ImgMiscTable2, Just ImgMiscTableCorner] [ [Just ImgEmpty, Just ImgMiscTable2, Just ImgMiscTableCorner]
, [Just ImgEmpty, Just ImgEmpty , Just ImgMiscTable1] , [Just ImgEmpty, Just ImgEmpty , Just ImgMiscTable1]
, [Just ImgEmpty, Just ImgEmpty , Just ImgEmpty] , [Just ImgEmpty, Just ImgEmpty , Just ImgEmpty]
]
clusterMat ClusterTableGroup =
M.fromLists
[ [ Just ImgEmpty, Just ImgMiscTable2, Just ImgMiscTableCorner
, Just ImgEmpty, Just ImgMiscTable2, Just ImgMiscTableCorner
]
, [ Just ImgEmpty, Just ImgEmpty, Just ImgMiscTable1
, Just ImgEmpty, Just ImgEmpty, Just ImgMiscTable1
]
, [ Just ImgEmpty, Just ImgEmpty, Just ImgEmpty
, Just ImgEmpty, Just ImgEmpty, Just ImgEmpty
]
, [ Nothing, Nothing, Nothing
, Just ImgEmpty, Just ImgMiscTable2, Just ImgMiscTableCorner
]
, [ Nothing, Nothing, Nothing
, Just ImgEmpty, Just ImgEmpty, Just ImgMiscTable1
]
] ]
clusterRoom :: Cluster -> TileState clusterRoom :: Cluster -> TileState
clusterRoom ClusterBox1 = Offi clusterRoom ClusterBox1 = Offi
clusterRoom ClusterCornerTable = Offi clusterRoom ClusterCornerTable = Offi
clusterRoom ClusterTableGroup = Offi
instance Size Cluster where instance Size Cluster where
size c = size c =