         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}

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

(definst shzzz
  [freq   {:default 44.77 :min 20 :max 400 :step 1}
   attack {:default 0.004 :min 0.00001 :max 2 :step 0.0001}
   decay  {:default 2.784 :min 0.00001 :max 2 :step 0.0001}
   rq     {:default 0.9 :min 0.01 :max 1 :step 0.01}
   amp    {:default 0.8 :min 0.01 :max 1 :step 0.01}
   clap   {:default 0.1 :min 0.01 :max 1 :step 0.01}
   clap-decay {:default 0.01 :min 0.01 :max 1 :step 0.01}]
  (let [noiz (white-noise)
        filt (rlpf noiz 2992 rq)
        dist (clip2 (* 2 (tanh (* 3 (distort (* 1.5 filt))))) 0.8)
        clap-trig (t-delay:kr (trig1:kr 1 10) clap-decay)
        env  (decay:kr clap-trig decay)
        clap-env (decay:kr (gate:kr (impulse:kr 60) (not-pos? clap-trig)) clap-decay)
        eq (b-peak-eq dist 796 1 -44)
        snd (+ (* clap-env filt) (* filt env))]
    (detect-silence (* amp snd) 0.11 (+ attack decay clap-decay) :action FREE)
    snd (* amp snd)))
(shzzz)
(stop)
(defn player
  [event _]
  (println event))

(def mpk (midi-in "MPK"))

(midi-handle-events mpk #'player)

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

;(haziti-clap)

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