 
 ; Midi
 (comment
+
+  (midi->hz 69) ; 440.0
+  (midi->hz 71) ; 493.9
+
   (->> (phrase (repeat 1/4) [69 71 73 74 76 78 80 81])
        (where :pitch midi->hz)
        live/play))
+
 
 ; Keys
 (defn A [midi] (+ midi 69))

      (* vol)))

(defmethod live/play-note :horn [{:keys [pitch pan duration]}]
  (whistle :freq pitch :pan (or pan 0) :dur (min duration 0.2)))

(defmethod live/play-note :default [note]
  (-> note (assoc :part :horn) live/play-note))


(comment
  (live/play (aga-terumo)))




