From 57649bfefed5442e6cb0d464bc1b4daf37cbec4f Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Sat, 9 Feb 2019 23:42:12 +0100
Subject: [PATCH] disable half of the tables

---
 src/Types/Interior.hs | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/src/Types/Interior.hs b/src/Types/Interior.hs
index de602e9..d0b3d8f 100644
--- a/src/Types/Interior.hs
+++ b/src/Types/Interior.hs
@@ -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
   ]