randl.clj

(use 'overtone.live)
(def rkick-id (int (rand 10000)))
(def rsnare-id (int (rand 10000)))
(println "Kick id " rkick-id)
(println "Snare id " rsnare-id)
(def rkick (sample (freesound-path rkick-id)))
(def rsnare (sample (freesound-path rsnare-id)))
(def metro (metronome 80))
(defn player [beat]
  (at (metro beat) (rkick))
  (at (metro (+ 0.5 beat)) (rsnare))
  (apply-at (metro (inc beat)) #'player (inc beat) []))
(player (metro))
(stop)