limit conference table size

This commit is contained in:
nek0 2019-02-09 20:46:21 +01:00
parent 78b4ef0eeb
commit 795e0fc24c

View file

@ -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)