 ;; Placement Functions ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(def columns (range 0 6))
+(def columns (range 0 ncols))
 (def rows (range 0 nrows))
 
 (def α (/ π 12))

         (rotate (/ π 12) [0 1 0])
         (translate [0 0 13]))))

(def key-holes
  (apply union
         (for [column columns

             (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))
                          ]
