         dist (clip2 (* 2 (tanh (* 2 (distort (* 2 snd))))) 0.2)
         snd (b-peak-eq snd 55.38 1 36.4)]
     (* amp (+ dist snd))))
-(kick :noise-decay 4)
+;(kick :noise-decay 4)
 
 (definst hat
   [freq   {:default 44.77 :min 20 :max 400 :step 1}
    attack {:default 0.036 :min 0.00001 :max 2 :step 0.0001}
-   decay  {:default 1.284 :min 0.00001 :max 2 :step 0.0001}
+   decay  {:default 0.484 :min 0.00001 :max 2 :step 0.0001}
    rq     {:default 0.08 :min 0.01 :max 1 :step 0.01}
    amp    {:default 0.8 :min 0.01 :max 1 :step 0.01}]
   (let [noiz (white-noise)
         filt (rhpf noiz 4064.78 rq)
         env  (x-line 1 0.001 decay :action FREE)]
     (* amp env filt)))
-(hat)
+;(hat)
 
 (definst haziti-clap
   [freq   {:default 44.77 :min 20 :max 400 :step 1}

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

(haziti-clap)

(synth-controller hat)
(synth-controller kick)

(def m (metronome 128))
(def step-seq (step-sequencer m 16 [kick hat]))

;(def step (stepinator))
(defn player
  [beat]
  (let [next-beat (inc beat)]
    (at (m beat)
        (kick :amp 0.5)
        (if (zero? (mod beat 2))
          (haziti :amp 0.3)))
    (at (m (+ 0.5 beat))
        (haziti-clap :decay 0.05 :amp 0.7))

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

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

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

(player (m))

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

(ns examples.beats
  (:use overtone.live))

(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]
