                            ;; spacer
                            (label :text ""
                                   :size [100 :by 30])
+                           (label "Tempo:")
+                           tempo-slider
+                           ;; spacer
+                           (label :text ""
+                                  :size [100 :by 30])
+                           (horizontal-panel
+                            :items [(button :id :repeats
+                                            :text "Repeat?"
+                                            :listen [:action repeat-action])
+                                    repeat-label])
+                           (combobox :model instruments
+                                     :id :instChooser
+                                     :listen [:action inst-chooser])
                            (label "Instrument:")
                            (combobox :model instruments
                                      :id :instChooser

        mellist (map #(keyword (s/join [melprefix (str %)])) (range mellen))
        rhylist (map #(keyword (s/join [rhyprefix (str %)])) (range rhylen))
        idlist (vec (concat mellist rhylist))
        circhash (atom '())]
    (doseq [k idlist]
      (let [w (select panel [k])]
        (swap! circhash assoc k (value w))))

(def tonic (atom :a3))

(def tuning (atom :equalTemperament))

(def tempo (atom 120))

(def repetition (atom false))

(def twelfth6 (sqrt 2))
(def twelfth3 (sqrt twelfth6))
