 ;; 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

  (apply union
         (concat
          ;; Row connections
          (for [column (range -1 ncols)
                row rows
                :when (or (.contains [2] column)
                          (not= row lastrow))]
