         (if note
           (hit (+ (* i TICK) t) (inst voices)))))))
 
-;(play-beat house-drums house-beat 500)
+(play-beat house-drums house-beat 500)
 
 (defn beats [t cnt]
   (cond

    (hit (now) "sin" :pitch (+ 20 start (- (rand-int 6) 3)) :dur (* 0.1 (+ 1 (rand-int 2)))))
  (callback (+ 500 (now)) #'sin-man start))

;(sin-man 40)

;(defn forever [tick pat cur]
;  (lazy-seq

(ns sc-examples
  (:use overtone
     clojure.contrib.seq-utils
     clj-backtrace.repl))

