 
 (definst pad
   [note 60 t 10 amt 0.3 amp 0.1 a 0.4 d 0.5 s 0.8 r 2]
-  (let [freq       (midicps note)
-        lfo        (+ 2 (* 0.01 (sin-osc:kr 5 (rand 1.5))))
-        src        (apply + (saw [freq (* freq lfo)]))
-        env        (env-gen (adsr a d s r) (sin-osc:kr 0.2))
-        f-env      (x-line:kr 0.001 4 t)
-        src        (* env src)
-        signal     (rlpf src (+ (* 0.3 freq) (* f-env 2 freq)) 0.5)
-        k          (/ (* 4 amt) (- 1 amt))
-        dist       (clip2 (/ (* (+ 1 k) signal) (+ 1 (* k (abs signal))))
-                          0.03)
-        snd        (* amp dist (line:kr 1 0 t))]
+  (let [freq   (midicps note)
+        lfo    (+ 2 (* 0.01 (sin-osc:kr 5 (rand 1.5))))
+        src    (apply + (saw [freq (* freq lfo)]))
+        env    (env-gen (adsr a d s r) (sin-osc:kr 0.2))
+        f-env  (x-line:kr 0.001 4 t)
+        src    (* env src)
+        signal (rlpf src (+ (* 0.3 freq) (* f-env 2 freq)) 0.5)
+        k      (/ (* 4 amt) (- 1 amt))
+        dist   (clip2 (/ (* (+ 1 k) signal) (+ 1 (* k (abs signal))))
+                      0.03)
+        snd    (* amp dist (line:kr 1 0 t))]
     src))
 
 (definst overpad


(definst grunge-bass
  [note 48 amp 0.5 dur 0.1 a 0.01 d 0.01 s 0.4 r 0.01]
  (let [freq (midicps note)
        env (env-gen (adsr a d s r) (line:kr 1 0 (+ a d dur r 0.1))
                     :action FREE)
        src (saw [freq (* 0.98 freq) (* 2.015 freq)])
        src (clip2 (* 1.3 src) 0.9)
        sub (sin-osc (/ freq 2))
        filt (resonz (rlpf src (* 8.4 freq) 0.29) (* 2.0 freq) 2.9)
        meat (ring4 filt sub)
        sliced (rlpf meat (* 2 freq) 0.1)
        bounced (free-verb sliced 0.8 0.9 0.2)]
    (* env bounced)))


                            :action FREE)
        fil-env    (env-gen (perc))
        fil-cutoff (+ cutoff (* env-amount fil-env))
        waves      (* vol-env
                      [(saw freqs)
                       (pulse freqs 0.5)
                       (lf-tri freqs)])
        selector   (select wave waves)
        filt       (rlpf selector fil-cutoff r)]
    (* amp filt)))
