From 173494c5685304714026d27d75b2f0d11a90eaa9 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sun, 1 Apr 2018 04:51:15 +0200
Subject: [PATCH] add a group of tables

---
 src/Types/Interior.hs | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/src/Types/Interior.hs b/src/Types/Interior.hs
index 4a6e4cf..b07eff6 100644
--- a/src/Types/Interior.hs
+++ b/src/Types/Interior.hs
@@ -10,6 +10,7 @@ import Types.UserData
 data Cluster
   = ClusterBox1
   | ClusterCornerTable
+  | ClusterTableGroup
   deriving (Enum, Bounded)
 
 clusterMat :: Cluster -> Matrix (Maybe ImgId)
@@ -22,13 +23,32 @@ clusterMat ClusterBox1 =
 clusterMat ClusterCornerTable =
   M.fromLists
     [ [Just ImgEmpty, Just ImgMiscTable2, Just ImgMiscTableCorner]
-    , [Just ImgEmpty, Just ImgEmpty           , Just ImgMiscTable1]
-    , [Just ImgEmpty, Just ImgEmpty           , Just ImgEmpty]
+    , [Just ImgEmpty, Just ImgEmpty     , Just ImgMiscTable1]
+    , [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 ClusterBox1 = Offi
 clusterRoom ClusterCornerTable = Offi
+clusterRoom ClusterTableGroup = Offi
 
 instance Size Cluster where
   size c =