       (* vol)))
 
 (defmethod live/play-note :clap1 [_]
-  (clap 225 :pan 1))
+  (clap 225 :pan 0.75))
 
 (defmethod live/play-note :clap2 [_]
-  (clap 150 :pan -1))
+  (clap 150 :pan -0.75))
+
+(defmethod live/play-note :clap3 [_]
+  (clap 75 :pan 0))
 
 (defn vary [t f]
   (fn [notes]

    (live/play)
    )
  )

    (-> note (assoc :pan (-> pitch (/ 9) dec)))
    note))

(def balendoro ; p 343
  (let [horns [tete ta ha tulule bongo]]
    (->> (concat
           horns
