         dist (clip2 (* 2 (tanh (* 3 (distort (* 1.5 src))))) 0.8)
         eq (b-peak-eq dist 37.67 1 10.4)]
     (* amp eq)))
-(dance-kick)
+;(dance-kick)
 
 (definst quick-kick
   [freq {:default 20.0 :min 20 :max 400 :step 1}

(ns examples.beats
  (:use overtone.live
        [overtone.gui sequencer control stepinator]))

(comment
  * kick
  * snare
  * rim click
  * crash symbal
  * foot hi-hat
  * close hi-hat
  * half-open hi-hat
  * open hi-hat
  * ride cymbal
  * high tom
  * mid tom
  * low tom
)

 (defn ugen-cents
  "Returns a frequency computed by adding n-cents to freq.  A cent is a
  logarithmic measurement of pitch, where 1-octave equals 1200 cents."
  [freq n-cents]

        dist (clip2 (* 2 (tanh (* 3 (distort (* 1.5 src))))) 0.8)
        eq (b-peak-eq dist 57.41 1 44)]
    (* amp eq)))
;(quick-kick)

(def m (metronome 128))

(defn player
  [beat]
  (let [next-beat (inc beat)]
    (at (m beat)
        (quick-kick :amp 0.5)
        (if (zero? (mod beat 2))
          (hat :amp 0.1)))
    (at (m (+ 0.5 beat))
        (haziti-clap :decay 0.05 :amp 0.3))

    (when (zero? (mod beat 3))
      (at (m (+ 0.75 beat))
          (hat :decay 0.03 :amp 0.2)))

    (when (zero? (mod beat 8))
      (at (m (+ 1.25 beat))
          (hat :decay 0.03)))

    (apply-at (m next-beat) #'player [next-beat])))

;(player (m))
