   (:require [scad-clj.scad :refer :all]
             [scad-clj.model :refer :all]
             [unicode-math.core :refer :all]))
+
+
+(def nrows 4)
+(def lastrow (dec nrows))
+(def cornerrow (dec lastrow))
 
 ;;;;;;;;;;;;;;;;;
 ;; Switch Hole ;;

          (for [column (drop-last columns)
                row rows
                :when (or (.contains [2] column)
                          (not= row (last rows)))]
            (triangle-hulls
             (key-place (inc column) row web-post-tl)
             (key-place column row web-post-tr)

;;;;;;;;;;;;;;;;;;;;;;;;;

(def columns (range 0 6))
(def rows (range 0 nrows))

(def α (/ π 12))
(def β (/ π 26))
