   (:require [overtone.live :refer :all :exclude [stop scale]]
             [leipzig.melody :refer :all]
             [leipzig.canon :refer [canon]]
-            [leipzig.scale :refer [scale A B high low]]
+            [leipzig.scale :refer [scale A B high low from]]
             [leipzig.temperament :as temperament]
             [leipzig.live :as live]
             [leipzig.live :refer [stop]]))
+
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; Ostinato with variations ;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defn vary
   "Apply f to the note at time t."

  (->> (clapping-music)
       live/play))

; Natural numbers
(comment
  (range 0 8))

    (tempo (bpm 120))
    (live/play)))



;;;;;;;;;;;;;;;
; Instruments ;
;;;;;;;;;;;;;;;

(definst drum [freq 440 vol 0.5 pan 0]
  (-> (* 2/3 (brown-noise))
      (+ (* 1/2 (sin-osc (* 3 freq))))
