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

set minimum conference table size

Browse source
This commit is contained in:
nek0 2018-11-13 11:41:36 +01:00
parent 03fbfd7bcf
commit 14a6c48c33
1 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
src/Types/Interior.hs
View file

@ -85,16 +85,18 @@ clusterMat ClusterFlipchart _ =
, [ Just ImgEmpty] , [ Just ImgEmpty]
] ]
clusterMat ClusterConferenceTable (h, w) = clusterMat ClusterConferenceTable (h, w) =
M.fromLists $ let mw = max 4 w
[ replicate w (Just ImgEmpty) mh = max 4 h
, [ Just ImgEmpty, Just ImgTableC4] ++ replicate (w-4) (Just ImgTableNW) ++ in M.fromLists $
[ replicate mw (Just ImgEmpty)
, [ Just ImgEmpty, Just ImgTableC4] ++ replicate (mw-4) (Just ImgTableNW) ++
[ Just ImgTableC3, Just ImgEmpty ] [ Just ImgTableC3, Just ImgEmpty ]
] ++ ] ++
replicate (h-4) ([ Just ImgEmpty, Just ImgTableSW] ++ replicate (w-4) (Just ImgEmpty) ++ replicate (mh-4) ([ Just ImgEmpty, Just ImgTableSW] ++ replicate (mw-4) (Just ImgEmpty) ++
[ Just ImgTableNE, Just ImgEmpty ]) ++ [ Just ImgTableNE, Just ImgEmpty ]) ++
[ [ Just ImgEmpty, Just ImgTableC1] ++ replicate (w-4) (Just ImgTableSE) ++ [ [ Just ImgEmpty, Just ImgTableC1] ++ replicate (mw-4) (Just ImgTableSE) ++
[ Just ImgTableC2, Just ImgEmpty ] [ Just ImgTableC2, Just ImgEmpty ]
, replicate w (Just ImgEmpty) , replicate mw (Just ImgEmpty)
] ]
clusterMat ClusterPlant1 _ = clusterMat ClusterPlant1 _ =
M.fromLists M.fromLists
@ -152,10 +154,13 @@ clusterPoints ClusterFlipchart _ =
[ ReachPoint Table (V2 2 1) NW [ ReachPoint Table (V2 2 1) NW
] ]
clusterPoints ClusterConferenceTable (h, w) = clusterPoints ClusterConferenceTable (h, w) =
[ ReachPoint Table (V2 1 c) SE | c <- [2..w-2] ] ++ let mw = max 4 w
[ ReachPoint Table (V2 r 1) NE | r <- [2..h-2] ] ++ mh = max 4 h
[ ReachPoint Table (V2 r w) SW | r <- [2..h-2] ] ++ in
[ ReachPoint Table (V2 h c) NW | c <- [2..w-2] ] [ ReachPoint Table (V2 1 c) SE | c <- [2..mw-1] ] ++
[ ReachPoint Table (V2 r 1) NE | r <- [2..mh-1] ] ++
[ ReachPoint Table (V2 r mw) SW | r <- [2..mh-1] ] ++
[ ReachPoint Table (V2 mh c) NW | c <- [2..mw-1] ]
clusterPoints ClusterToilet _ = clusterPoints ClusterToilet _ =
[ ReachPoint Toilet (V2 1 1) NE [ ReachPoint Toilet (V2 1 1) NE
] ]