         filt (moog-ff (+ s1 s2) (* cutoff f-env) 3)]
     (* amp filt)))
 
-(definst rise-fall-pad [freq 440 t 4 amt 0.3 amp 0.8]
+(definst rise-fall-pad
+  [freq 440 t 4 amt 0.3 amp 0.8]
   (let [f-env      (env-gen (perc t t) 1 1 0 1 FREE)
         src        (saw [freq (* freq 1.01)])
         signal     (rlpf (* 0.3 src)

; f = Synth(\blowbotl);
; f.set("freq", 100);
; f.free;
;
; SynthDef(\bowed, { arg out=0, amp=1.0, gate=1, freq=420, bowOffset = 0.0, bowSlope = 0.5, bowPosition = 0.75, vibFreq=6.127, vibGain=0.2;
;   var betaRatio = 0.027236 + (0.2*bowPosition);
;   var baseDelay = freq.reciprocal;
;   var lastOut = LocalIn.ar(2);
;   var vibrato = SinOsc.ar(vibFreq, 0, vibGain);
;   var neckDelay = baseDelay*(1.0-betaRatio) + (baseDelay*vibrato);
;   var neck = DelayL.ar(lastOut[0], 0.05, neckDelay);
;   var bridge = DelayL.ar(lastOut[1], 0.025, baseDelay*betaRatio);
;   var stringFilter = OnePole.ar(bridge*0.95, 0.55);
;   var adsr = amp*EnvGen.ar(Env.adsr(0.02, 0.005, 1.0, 0.01), gate, doneAction: 2);
;   var bridgeRefl = stringFilter.neg;
;   var nutRefl = neck.neg;
;   var stringVel = bridgeRefl + nutRefl;
;   var velDiff = adsr - stringVel;
;   var slope = 5.0 - (4.0*bowSlope);
;   var bowtable = (( ((velDiff+bowOffset)*slope) + 0.75 ).abs ).pow(-4).clip(0, 1);
;   var newVel = velDiff*bowtable;
;   LocalOut.ar([bridgeRefl, nutRefl] + newVel);
;   Out.ar(out, Resonz.ar( bridge*0.5, 500, 0.85 ) );
; }, [\ir, 0,0, 0, 0, 0, 0, 0, 0]).send(s);
;
; Synth("bowed")
; Synth("bowed", ["freq", 200])
;
; SynthDef(\voicform, { arg out=0, gate=1, freq=440, amp=0.3, voiceGain=1.0, noiseGain=0.0, sweepRate=0.001;
;
;   var voiced = Pulse.ar(freq, 0.1, voiceGain);

        snd        (* amp dist (line:kr 1 0 t))]
    src))

(definst overpad
  [note 60 amp 0.7 attack 0.001 release 2]
  (let [freq  (midicps note)
        env   (env-gen (perc attack release) :action FREE)
        f-env (+ freq (* 3 freq (env-gen (perc 0.012 (- release 0.1)))))
        bfreq (/ freq 2)
        sig   (apply +
                     (concat (* 0.7 (sin-osc [bfreq (* 0.99 bfreq)]))
                             (lpf (saw [freq (* freq 1.01)]) f-env)))
        audio (* amp env sig)]
    audio))

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