You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
49 lines
1.1 KiB
Plaintext
49 lines
1.1 KiB
Plaintext
(
|
|
SynthDef.new(\pulseTest, {
|
|
arg ampHz=4, fund=40, maxPartial=4, width=0.5;
|
|
var amp1, amp2, freq1, freq2, sig1, sig2;
|
|
amp1 = LFPulse.kr(ampHz, 0, 0.12) * 0.75;
|
|
amp2 = LFPulse.kr(ampHz, 0.5, 0.12) * 0.75;
|
|
freq1 = LFNoise0.kr(4).exprange(fund, fund*maxPartial).round(fund);
|
|
freq2 = LFNoise0.kr(4).exprange(fund, fund*maxPartial).round(fund);
|
|
freq1 = freq1 * LFPulse.kr(8, add:1);
|
|
freq1 = freq1 * LFPulse.kr(6, add:1);
|
|
sig1 = Pulse.ar(freq1, width, amp1);
|
|
sig2 = Pulse.ar(freq2, width, amp2);
|
|
//sig1 = FreeVerb.ar(sig1, 0.7, 0.8, 0.25);
|
|
//sig2 = FreeVerb.ar(sig1, 0.7, 0.8, 0.25);
|
|
Out.ar(0, sig1);
|
|
Out.ar(1, sig2);
|
|
}).add;
|
|
)
|
|
|
|
x = Synth.new(\pulseTest);
|
|
|
|
x.free;
|
|
|
|
x.set(\width, 0.25);
|
|
x.set(\fund, 20);
|
|
x.set(\maxPartial, 20);
|
|
x.set(\ampHz, 0.25);
|
|
|
|
s.freeAll
|
|
|
|
|
|
|
|
(
|
|
SynthDef.new(\madtraffic, {
|
|
var sig, env;
|
|
env = Line.kr(1, 0, 1, doneAction:2);
|
|
sig = Pulse.ar(ExpRand(30,500)) * env;
|
|
}.add;
|
|
))
|
|
|
|
(
|
|
Pbind(
|
|
\instrument, \pulseTest,
|
|
\freq, Pseq([137, 373, Prand([237, 473, 713],1)], inf),
|
|
\legato, Pseq([1.7, 0.3], inf),
|
|
\dur, 0.25,
|
|
\out, Pseq([1, 0], inf)
|
|
).play;
|
|
) |