astro/tracer
astro/tracer
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

disable half of the tables

Browse Source
This commit is contained in:
Nek0 - 2019-02-09 23:42:12 +01:00
parent 0d370a4f42
commit 57649bfefe
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
src/Types/Interior.hs
View File

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