 
 (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

; Work in progress...  just getting started
(comment definst b3
  [note 60 a 0.01 d 3 s 1 r 0.01]
  (let [freq (midicps note)
        waves (sin-osc [(* 0.5 freq)
                        freq
                        (* (/ 3 2) freq)

(definst buzz
  [pitch 40 cutoff 300 dur 200]
  (let [lpf-lev (* (+ 1 (lf-noise1:kr 10)) 400)
        a       (lpf (saw (midicps pitch)) lpf-lev)
        b       (sin-osc (midicps (- pitch 12)))
        env     (env-gen 1 1 0 1 2 (perc 0.01 (/ dur 1000)))]
    (* env (+ a b))))

(definst bass
  [freq 120 t 0.6 amp 0.5]
  (let [env  (env-gen (perc 0.08 t) :action FREE)
        src  (saw [freq (* 0.98 freq) (* 2.015 freq)])
        src  (clip2 (* 1.3 src) 0.8)
        sub  (sin-osc (/ freq 2))
        filt (resonz (rlpf src (* 4.4 freq) 0.09) (* 2.0 freq) 2.9)]
    (* env amp (fold:ar (distort (* 1.3 (+ filt sub))) 0.08))))

