     (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)
+(sin-man 40)
 
 ;(defn forever [tick pat cur]
 ;  (lazy-seq

(def TICK (/ (/ 60000 BPM) 4))

(defsynth sin-chord {:out 0 :pitch 52 :dur 500 :amp 0.2}
  (out.ar :out (+ (* :amp (sin-osc.ar (midicps :pitch)))
                  (* :amp (sin-osc.ar (midicps (+ :pitch 4))))
                  (* :amp (sin-osc.ar (midicps (+ :pitch 7)))))))

(def hat-buf (load-sample "/home/rosejn/projects/overtone/instruments/samples/kit/open-hat.wav"))


        (if note
          (hit (+ (* i TICK) t) (inst voices)))))))

(play-beat house-drums house-beat 500)

(defn beats [t cnt]
  (cond
