(
Ndef('aa', {
    arg mul = 0.9, delTime = 0.05, damp = 0.5, size = 2, diff=0.9, fb = 0.5, t_trig=1, dryWet=0.5, pan=0, leak=0.95, crush = 16, sampRate = 44100, fb2 = 0;
    var sig;
    //sig = Impulse.ar([1,1.5], mul:mul);
    sig = (Sweep.ar(t_trig) - Delay1.ar(Sweep.ar(t_trig)) * 0.7);
    sig = RLPF.ar(sig, 12000);
    sig = Pan2.ar(LeakDC.ar(sig, leak), pan);
    sig = sig + (RLPF.ar(LocalIn.ar(2),55).clip * fb2);
    sig = (Greyhole.ar(sig, delTime, damp, size, diff, fb) * dryWet) + (sig * (1-dryWet));
    sig = Decimator.ar(sig, sampRate, crush);
    sig = Limiter.ar(sig*7, 0.9, 0.01);
    LocalOut.ar(sig);
    sig = Limiter.ar(sig*2, 0.9, 0.02);
}).play;
)

s.recHeaderFormat_("wav").recSampleFormat_("int16");
s.record;
s.stopRecording
s.reboot;
(
Event.addEventType(\adaDC, {|server|
    var args = [~size, ~diff, ~dryWet, ~pan, ~damp, ~fb, ~delTime, ~leak, ~crush, ~sampRate, ~fb2];
    var argNames = [\size, \diff, \dryWet, \pan, \damp, \fb, \delTime, \leak, \crush, \sampRate, \fb2];
    [0.1, 0.1, 0.1, 0, 0.3, 0.4, 0.05, 0.1,12,44100,0].do{|item, index|
    if (args[index].isNil, {args[index] = item});
    };
    if (~nDef.isNil, {~nDef = Ndef('aa')});
    if (~tr.isNil, {~tr = Pn(1)});
    argNames.do{|item,index| ~nDef.set(item, args[index])};
    ~nDef.set(\t_trig, ~tr);
});
)

//part1
(
Pdef('aa', Pbind(\type, \adaDC,
    \tr, Pseq([1,1,1,0,1,Prand([1,0],1)], inf),
    \dur, Pseq([1,0.5,0.5,1,1,3,5], inf) * 0.25,
    \size, Pseq([0.05], inf),
    \leak, Pseq([0.27,0.1,0.99,0.3,0.1], inf),
    \pan, Pseq([-1,1,1,-1,1,0,-1,1], inf),
    \diff, Pseq([0.1], inf),
    \dryWet,0,
    \delTime, Pseq([0.05,0.15,0.05,0.05,0.1], inf),
    \fb, Pseq([0.3], inf),
    \crush, Pseq([12], inf),
    \sampRate, 44100,
)).play(quant:0);
)
//part2
(
Pdef('aa', Pbind(\type, \adaDC,
    \tr, Pseq([1,1,1,0,1,Prand([1,1,1,0],1)], inf),
    \dur, Pseq([1,0.5,1.5,0.5,1,3,5], inf) * 0.25,
    \size, Pseq([0.05], inf),
    \leak, Pseq([0.27,0.1,0.99,0.3,0.1], inf),
    \pan, Pseq([-1,1,1,-1,1,0,-1,1], inf),
    \diff, Pseq([0.1], inf),
    \dryWet,0,
    \delTime, Pseq([0.05,0.15,0.05,0.05,0.1], inf),
    \fb, Pseq([0.3], inf),
    \crush, Pseq([12], inf),
    \sampRate, 44100,
)).play();
)
//part3 - bursts
(
Pdef('aa', Pbind(\type, \adaDC,
    \tr, Pseq([1,1,1,1,0,1,Prand([1,1,1,0],1)], inf),
    \dur, Pseq([1,0.5,1.5,0.5,1,3,5], inf) * 0.25,
    \size, Pseq([3.85,0.01,0.5,0.01,0.05,0.05], inf),
    \leak, Pseq([0.27,0.1,0.99,0.3,0.1], inf),
    \pan, Pseq([-1,1,1,-1,1,0,-1,1], inf),
    \diff, Pseq([0.6,0.1,0.8,0.6,0.1,0.1], inf),
    \dryWet,Pseq([0,1,0,0,0,0,0,0],inf),
    \delTime, Pseq([0.08,0.03,0.1,0.05,0.05,0.03,0.15], inf),
    \fb, Pseq([0.8], inf),
    \crush, Pseq([12], inf),
    \sampRate, 44100,
)).play();
)
//part4 - more bursts
(
Pdef('aa', Pbind(\type, \adaDC,
    \tr, Pseq([1,1,1,1,0,1,Prand([1,0],1)], inf),
    \dur, Pseq([1,0.5,1.5,0.5,1,3,5], inf) * 0.25,
    \size, Pseq([0.85,3.8,0.9,0.1,3.8], inf),
    \leak, Pseq([0.27,0.1,0.99,0.3,0.95], inf),
    \pan, Pseq([-1,1,1,-1,1,0,-1,1], inf),
    \diff, Pseq([0.9,0.1,0.15,0.707,0.3], inf),
    \dryWet,Pseq([0,1,0,0,1,0,0,0,0,0,0],inf),
    \delTime, Pseq([0.05,0.15,0.05,0.03,0.05,0.01,0.15], inf),
    \fb, Pseq([0.2], inf),
    \crush, Pseq([12], inf),
    \sampRate, 44100,
)).play(quant:0);
)
//part5 - change sampRate
(
Pdef('aa', Pbind(\type, \adaDC,
    \tr, Pseq([1,1,1,1,0,1,Prand([1,0],1)], inf),
    \dur, Pseq([1,0.5,1.5,0.5,1,3,5], inf) * 0.25,
    \size, Pseq([0.85,3.8,0.9,0.15,3.8], inf),
    \leak, Pseq([0.27,0.1,0.99,0.3,0.1], inf),
    \pan, Pseq([-1,1,1,-1,1,0,-1,1], inf),
    \diff, Pseq([0.9,0.1,0.05,0.707,0.3], inf),
    \dryWet,Pseq([0,1,0,1,0,0,0.4,0,0.1],inf),
    \delTime, Pseq([0.04], inf),
    \fb, Pseq([0.2], inf),
    \crush, Pseq([12], inf),
    \sampRate, Pseq([1,1,1,0.25,1,0.25,1], inf) * 44100,
)).play();
)
//part6 - feedback!
(
Pdef('aa', Pbind(\type, \adaDC,
    \tr, Pseq([1,1,1,1,0,1,Prand([1,1,0],1),1,1,1], inf),
    \dur, Pseq([1,0.5,1.5,0.5,1,3,5], inf) * 0.25,
    \size, Pseq([0.85,3.8,0.9,0.15,3.8], inf),
    \leak, Pseq([0.27,0.3,0.99,0.3,0.1], inf),
    \pan, Pseq([-1,1,1,-1,1,0,-1,1], inf),
    \diff, Pseq([0.9,0.1,0.25,0.707,0.3], inf),
    \dryWet,Pseq([0,1,0,0.4,0,0,0,0.3],inf),
    \delTime, Pseq([0.04,0.15,0.05,0.05,0.02,0.05], inf),
    \fb, Pseq([0.2,0.8,0.1,0.05,0.3], inf),
    \crush, Pseq([12,14,12,12,12], inf),
    \sampRate, Pseq([1,0.4,1,0.25,1,0.25,1], inf) * 44100,
    \fb2, Pseq([0,0.3,0,0.8,0,0,0,0.25], inf),
)).play();
)
//part7
(
Pdef('aa', Pbind(\type, \adaDC,
    \tr, Pseq([1,1,1,1,1,1,Prand([1,0],1)], inf),
    \dur, Pseq([1,0.5,0.5,1,1,3,5], inf) * 0.25,
    \size, Pseq([0.05], inf),
    \leak, Pseq([0.27,0.1,0.99,0.3,0.1], inf),
    \pan, Pseq([-1,1,1,-1,1,0,-1,1], inf),
    \diff, Pseq([0.05], inf),
    \dryWet,Pseq((0!13)++[0.1], inf),
    \delTime, Pseq([0.05,0.15,0.05,0.05,0.1], inf),
    \fb, Pseq([0.2], inf),
    \crush, Pseq([12], inf),
    \sampRate, Pseq([1,1,1,1,1,0.25,1], inf) * 44100,
)).play(quant:0.125);
)

//part8
(
Pdef('aa', Pbind(\type, \adaDC,
    \tr, Pseq([1,1,1,1,0,1,Prand([1,0],1)], inf),
    \dur, Pseq([1,0.5,0.5,1,1,3,5], inf) * 0.25,
    \size, Pseq([0.05], inf),
    \leak, Pseq([0.27,0.1,0.99,0.3,0.1], inf),
    \pan, Pseq([-1,1,1,-1,1,0,-1,1], inf),
    \diff, Pseq([0.01], inf),
    \dryWet,Pseq((0!8)++[0.1], inf),
    \delTime, Pseq([0.15,0.1,0.1,0.05,0.1], inf),
    \fb, Pseq([0.05], inf),
    \crush, Pseq([12], inf),
    \sampRate, Pseq([1,1,1,1,1,0.5,1], inf) * 44100,
    \fb2, 0,
)).play(quant:0.125);
)