 
           ;; Column connections
           (for [column columns
-                row (drop-last rows)
-                :when (or (not= column 0)
-                          (not= row 3))]
+                row (range 0 cornerrow)]
             (triangle-hulls
              (key-place column row web-post-bl)
              (key-place column row web-post-br)

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

          ;; Diagonal connections
          (for [column (drop-last columns)
                row (drop-last rows)
                :when (or (not= column 0)
                          (not= row 3))]
            (triangle-hulls
             (key-place column row web-post-br)
             (key-place column (inc row) web-post-tr)

  (:require [scad-clj.scad :refer :all]
            [scad-clj.model :refer :all]
            [unicode-math.core :refer :all]))


(def nrows 6)
(def ncols 6)                           ; it's not set up to change this
(def lastrow (dec nrows))
(def cornerrow (dec lastrow))
(def α (/ π 12))                        ; curvature of the columns
(def β (/ π (if (= nrows 4) 26 36)))    ; curvature of the rows
(def centerrow (- cornerrow 1))         ; controls front-back tilt
(def centercol 3)                       ; controls left-right tilt / tenting
(def orthographic-x (> nrows 5))        ; for larger number of rows don't curve them in as much
; (def orthographic-x true)

;;;;;;;;;;;;;;;;;
;; Switch Hole ;;
