 ; Raw frequencies
 (comment
   (->> (phrase (repeat 1/4) [440 494 554 622 659 740 831 880])
+       live/play)
+
+  ; Inaudible
+  (->> (phrase (repeat 1/4) [0 1 2 3 4 5 6 7])
        live/play))
 
 ; Midi
 (comment
   (->> (phrase (repeat 1/4) [69 71 73 74 76 78 80 81])
-       (where :pitch temperament/equal)
+       (where :pitch midi->hz)
+       live/play)
+
+  ; Inaudible
+  (->> (phrase (repeat 1/4) [0 1 2 3 4 5 6 7])
+       (where :pitch midi->hz)
        live/play))
 
 ; Scales

(def central-african-scale (comp high pentatonic -))

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



  (:require [overtone.live :refer :all :exclude [stop scale]]
            [leipzig.melody :refer :all]
            [leipzig.canon :refer [canon]]
            [leipzig.scale :refer [scale high low from]]
            [leipzig.live :as live]
            [leipzig.live :refer [stop]]))

