 
 
 
+
 ;;;;;;;;;;;;;;;;;;
 ; Natural scales ;
 ;;;;;;;;;;;;;;;;;;

      (* 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))

       (map rand-variations)
       (introduce-after 4)
       (map pan)
       (where :pitch (comp midi->hz high A little-endian-pentatonic))
       (tempo (bpm 120))))

(comment
