limit conference table size

src/Types/Interior.hs

@@ -117,8 +117,10 @@ clusterMatWithRPs ClusterFlipchart dim _ =
   , clusterPoints ClusterFlipchart dim
   )
 clusterMatWithRPs ClusterConferenceTable dim@(h, w) _ =
-  let mw = max 4 w
-      mh = max 4 h
+  let mmw = max 4 w
+      mmh = max 4 h
+      mw  = min 7 mmw
+      mh  = min 7 mmh
   in
     ( M.fromLists $
         [ replicate mw (Just ImgEmpty)