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


          ;; Column connections
          (for [column columns
                row (drop-last rows)
            ;     :when (or (.contains [2 3] column)
            ;               (not= row 2))
                          ]



(def nrows 4)
(def ncols 6)
(def lastrow (dec nrows))
(def cornerrow (dec lastrow))

