randomly generated bongos

random-bongos.alda

(defn random-bongos
  [ticks vol-min vol-max]
  [(octave 4)
   (set-duration 0.25) ; 16th notes
   (let [notes     (-> #{[:c] [:c :sharp] [:d] [:d :sharp] [:e]}
                       (->> (map #(note (apply pitch %))))
                       (conj (pause)))
         rand-note #(rand-nth notes)
         rand-vol  #(vol (+ vol-min (rand-int (- vol-max vol-min))))
         tick      #(vector (rand-vol) (rand-note))]
     (take ticks (repeatedly tick)))])

percussion: (random-bongos 64 25 75)