       (pan2 pan)
       (* vol)))
 
-(defmethod live/play-note :default [{:keys [pitch pan]}]
-  (when pitch (horn :freq pitch :pan (or pan 0))))
+(defmethod live/play-note :horn [{:keys [pitch pan]}]
+  (horn :freq pitch :pan (or pan 0)))

        b (comp (split 6/4 1/4) a) ; 9
        c (comp (split 14/4 1/4) b) ; 8
        d (comp (accent 10/4) (split 9/4 1/4) b)] ; 19
    (part model a b c d)))

(defn big [notes]
  (->> notes (map #(where :pitch (from 5) %))))

        b (split 5/5 1/10)
        c (comp (split 17/15 2/15) (split 5/5 2/15) (skip 6/5))
        d (comp (skip 7/5) (skip 6/5))]
    (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)
        d #(then % (->> (rhythm (repeat 5 2/5))))]
    (part :mother model a b c d)))

(def father
  (let [model (->> (rhythm [2/5 1/5 2/5]))
        a (skip 2/5)
        b (skip 3/5)
        c (comp (split 0 1/5) a)
