disable half of the tables

This commit is contained in:
nek0 2019-02-09 23:42:12 +01:00
parent 0d370a4f42
commit 57649bfefe

View file

@ -20,8 +20,8 @@ import Types.Direction
data Cluster
= ClusterBox1
| ClusterTableSW
| ClusterTableNW
| ClusterTableNE
-- | ClusterTableNW
-- | ClusterTableNE
| ClusterTableSE
| ClusterCornerTable
| ClusterTableGroup
@ -72,18 +72,18 @@ clusterMatWithRPs ClusterTableSE dim@(_, mw) g =
]
, ps
)
clusterMatWithRPs ClusterTableNE dim@(h, _) _ =
( M.fromLists $ replicate h
[Just ImgTableNE, Just ImgEmpty]
, clusterPoints ClusterTableNE dim
)
clusterMatWithRPs ClusterTableNW dim@(_, w) _ =
( M.fromLists $
[ replicate w (Just ImgEmpty)
, replicate w (Just ImgTableNW)
]
, clusterPoints ClusterTableNW dim
)
-- clusterMatWithRPs ClusterTableNE dim@(h, _) _ =
-- ( M.fromLists $ replicate h
-- [Just ImgTableNE, Just ImgEmpty]
-- , clusterPoints ClusterTableNE dim
-- )
-- clusterMatWithRPs ClusterTableNW dim@(_, w) _ =
-- ( M.fromLists $
-- [ replicate w (Just ImgEmpty)
-- , replicate w (Just ImgTableNW)
-- ]
-- , clusterPoints ClusterTableNW dim
-- )
clusterMatWithRPs ClusterCornerTable dim _ =
( M.fromLists
[ [Just ImgTableSE, Just ImgTableCorner]
@ -234,8 +234,8 @@ clusterMatWithRPs ClusterCabinets (h, w) g =
clusterRoom :: Cluster -> [TileState]
clusterRoom ClusterBox1 = [Offi]
clusterRoom ClusterTableSW = [Offi]
clusterRoom ClusterTableNW = [Offi]
clusterRoom ClusterTableNE = [Offi]
-- clusterRoom ClusterTableNW = [Offi]
-- clusterRoom ClusterTableNE = [Offi]
clusterRoom ClusterTableSE = [Offi]
clusterRoom ClusterCornerTable = [Offi]
clusterRoom ClusterTableGroup = [Offi]
@ -251,10 +251,10 @@ clusterRoom ClusterCabinets = [Kitc]
clusterPoints :: Cluster -> (Int, Int) -> [ReachPoint]
clusterPoints ClusterBox1 _ = []
clusterPoints ClusterTableNE (h, _) =
[ ReachPoint Table (V2 r 2) SW 0 | r <- [1..h] ]
clusterPoints ClusterTableNW (_, w) =
[ ReachPoint Table (V2 1 c) SE 0 | c <- [1..w] ]
-- clusterPoints ClusterTableNE (h, _) =
-- [ ReachPoint Table (V2 r 2) SW 0 | r <- [1..h] ]
-- clusterPoints ClusterTableNW (_, w) =
-- [ ReachPoint Table (V2 1 c) SE 0 | c <- [1..w] ]
clusterPoints ClusterCornerTable _ =
[ ReachPoint Computer (V2 2 1) N 0
]