         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]

        skip (* wave wenv)]
    (* amp (+ (* env filt) skip))))

;(haziti-clap)

(definst dance-kick
  [freq {:default 50.24 :min 20 :max 400 :step 1}
