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

limit conference table size

Browse source
This commit is contained in:
nek0 2019-02-09 20:46:21 +01:00
parent 78b4ef0eeb
commit 795e0fc24c
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Types/Interior.hs
View file

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