   (let [[mel rhy] (make-part id)
         notes (map str->midi mel)
         part (map vector notes rhy)]
-    (play one-twenty-bpm inst-cur part)))
-
+    (play one-twenty-bpm inst-cur part)))  
+    
 (defn remove-circle [id kw]
   (let [len (get-in @melody-map [id kw])
         kwstring (case kw

        oct2 (map #(s/join [% "4"]) c-scale)]
    (concat oct1 oct2)))

(def test-model '("A" "B" "C" "D\u266D"))
                                    
(defn make-note-box [id]
  (let [cb (combobox :id (keyword (s/join ["kb-" id]))
                     :model keyboard)]

        seesaw.graphics
        ;seesaw.color
        ;seesaw.keystroke
        seesaw.chooser
        clojure.math.numeric-tower)
  (:require [overtone.core :as o]
            [clojure.string :as s])
