 ; Ostinato with variations ;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defn vary
+(defn target
   "Apply f to the note at time t."
   [t f]
   (fn [notes]

    (part :child model a b c d)))

(def mother
  (let [model (->> (rhythm [2/5 2/5 4/5 1/5 1/5]))
        a (skip 9/5)
        b (skip 0)
        c (comp a b)

;;;;;;;;;;;;;;

(def child
  (let [model (rhythm [2/5 3/5 1/5 1/5 3/5])
        a (split 6/5 1/10)
        b (split 5/5 1/10)
        c (comp (split 17/15 2/15) (split 5/5 2/15) (skip 6/5))
