 
 (defmethod live/play-note :horn [{:keys [pitch pan duration]}]
   (whistle :freq pitch :pan (or pan 0) :dur (min duration 0.2))
-  ;(drum :freq pitch :pan (or pan 0) :dur (min duration 0.2))
+  ;(drum :freq (* 1/2 pitch) :pan (or pan 0) :dur (min duration 0.2))
   )
 
 (defmethod live/play-note :default [{:keys [pitch duration]}]

       live/play))

; Scales
(def major (scale [2 2 1 2 2 2 1]))
(def minor (scale [2 1 2 2 1 2 2]))
(def pentatonic (scale [2 3 2 2 3]))

(comment
  (map (comp A major) (range 0 8))
  (map (comp A minor) (range 0 8))
  (map (comp A pentatonic) (range 0 6))

  (->> (phrase (repeat 1/4) (range 0 8))
       (where :pitch (comp midi->hz A major))
       live/play))


; Little-endian scale
(def little-endian-pentatonic
  "In Central African music, we play scales from small sounds to big ones."
  (comp pentatonic -))



; Keys
(defn A
  "Convert a relative midi code into an absolute one in the key of A."
  [relative-midi]
  (+ relative-midi 69))

(defn B
  "Convert a relative midi code into an absolute one in the key of B."
  [relative-midi]
  (+ relative-midi 71))

(defn C
  "Convert a relative midi code into an absolute one in the key of C."
  [relative-midi]
  (+ relative-midi 72))

(comment
  (->> (phrase (repeat 1/4) [0 2 4 5 7 9 11 12])
