   (apply union
          (concat
           ;; Row connections
-          (for [column (range -1 ncols)
-                row rows
-                :when (or (.contains [2] column)
-                          (not= row lastrow))]
+          (for [column (range 0 (dec ncols))
+                row (range 0 lastrow)]
             (triangle-hulls
              (key-place (inc column) row web-post-tl)
              (key-place column row web-post-tr)

             (key-place column (inc row) web-post-tr)))

          ;; Diagonal connections
          (for [column (range -1 ncols)
                row (range -1 lastrow)
            ;     :when (or (.contains [ 1 2 3] column)
            ;               (not= row 2))
                          ]
            (triangle-hulls
             (key-place column row web-post-br)
             (key-place column (inc row) web-post-tr)


          ;; Column connections
          (for [column columns
                row (range 0 cornerrow)]
            (triangle-hulls
             (key-place column row web-post-bl)
             (key-place column row web-post-br)
