Sinte en SuperCollider

 

Un sinte que escribí.

// código


(
SynthDef(\d, {|fre=4 freq=500|
var adjust, sig;
adjust = AmpCompA.kr(freq, 500, 0.6, 0.3);
a = Pulse.ar(
LFPulse.kr(fre, 0, 0.5, freq * 0.5, [freq, freq]),
Line.kr(0, 1, 15) , 0.5
)!2;
sig= a*adjust;
Out.ar(0,sig);
}).add;
)

(
Pseq([
Pbind(
\instrument, \d,
\fre, Pseq([4,4, 4, 4, 2, 2, 2, 2,8,8,8,8], inf),
\dur, 6,
\amp, 0.6,
\freq, Pseq([100, 200, 300, 400], inf),
)], inf).play;
)