                  (dec (quot (inc diff) 12))
                  (quot diff 12))
         interval (mod diff 12)]
-    (* tonic-freq (Math/pow 2 octave) (nth (get @tuning-map @tuning) interval))))
+    (* tonic-freq (Math/pow 2 octave) (nth @tuning interval))))
 
 ;; (if (not (o/server-connected?))
 ;;   ;(o/boot-external-server 57110)

(native!)

(def tonic (atom :a3))

(def tuning (atom :equalTemperament))

(def tempo (atom 120))


          (value! t r))
        (config! panel :items fields)))))

(defn install-tuning [e]
  (let [ratios (get-ratios e)
        tuning-button (select control-frame [:#tuningChooser])]
    (when (= (count ratios) 12)
      (reset! tuning ratios)
      (value! tuning-button "Custom"))))

;; handler for tempo-slider
(listen tempo-slider
