   (->> (phrase (repeat 1/4) (range 0 8))
        (where :pitch (comp temperament/equal A major))
        live/play))
+
+
+
+;;;;;;;;;;;;;;;;;;;;;
+; Ndereje Balendoro ; p 343
+;;;;;;;;;;;;;;;;;;;;;
 
 (def tete
   (let [model (phrase [8/4 3/4 5/4] (repeat 0))

  "Generate version of the model using the variations fns."
  [model & variations]
  ((apply juxt identity variations) model))

(def child
  (let [model (->> (rhythm [2/5 3/5 1/5 1/5 3/5]) (all :part :child))

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