a = CtkNoteObject(

SynthDef(\master, {arg outbus, tempo;

Out.ar(outbus, Impulse.ar(tempo))

})

);

b = CtkNoteObject(

SynthDef(\pulse, {arg trig, ran = 0, freq, amp = 1;

var del, env, noise, filt;

del = LFNoise1.kr(1).range(-0.1, 0.1);

trig = DelayC.ar(In.ar(trig), 0.2, 0.1 + (del * Lag.kr(ran, 1)));

env = Decay.ar(trig, 0.3);

noise = PinkNoise.ar(1) * env;

filt = BPF.ar(noise, freq, 0.1);

Out.ar(0, Pan2.ar(filt * amp))

})

);

z = CtkAudio.new;

y = a.new.outbus_(z.bus).tempo_(1).play;

g = b.new(addAction:\tail).trig_(z.bus).ran_(0).freq_(440).amp_(1).play;

h = b.new(addAction:\tail).trig_(z.bus).ran_(0).freq_(440 * 2).amp_(1).play;

i = b.new(addAction:\tail).trig_(z.bus).ran_(0).freq_(440 * 3).amp_(1).play;

j = b.new(addAction:\tail).trig_(z.bus).ran_(0).freq_(440 * 4).amp_(1).play;

[g, h, i, j].do({arg me; me.ran_(1)})

[g, h, i, j].do({arg me; me.ran_(0)})

a = CtkNoteObject(

SynthDef(\fadey, {

var src, filt1, filt2, fade;

src = PinkNoise.ar(1);

filt1 = BPF.ar(src, 440, 0.1);

filt2 = BPF.ar(src, 880, 0.1);

fade = XFade2.ar(filt1, filt2, MouseX.kr(-1, 1));

Out.ar(0, fade);

})

)

b = a.new.play;

b.free;