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

  (->>
    ndereje-balendoro
    (map pan)
    (where :pitch (comp temperament/equal A central-african-scale))
    (tempo (bpm 120))
    (live/play)))


; 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 midi->hz)
       live/play)

  ; Inaudible
  (->> (phrase (repeat 1/4) [0 1 2 3 4 5 6 7])
       (where :pitch midi->hz)
       live/play))

; Scales
