22 lines
549 B
Plaintext
22 lines
549 B
Plaintext
|
( // synthdef /////////
|
||
|
SynthDef(\fm_grainer, {
|
||
|
arg out = 0, modfreq = rrand(10,1000), carfreq = 100 ;
|
||
|
var signal;
|
||
|
|
||
|
signal = GrainFM.ar(
|
||
|
numChannels:2,
|
||
|
trigger: Impulse.kr(LFTri.kr(0.1, -1)+1*10),
|
||
|
dur: 0.05,
|
||
|
carfreq: carfreq,
|
||
|
modfreq: modfreq,
|
||
|
// index: LFNoise1.kr.range(1, 90),
|
||
|
index: SinOsc.kr(0.05)*0.2,// LFNoise1.kr.range(1, 90),
|
||
|
pan: LFNoise1.kr.range(-1,1),
|
||
|
envbufnum: -1
|
||
|
) * 0.2;
|
||
|
|
||
|
signal = signal * EnvGen.kr(Env.linen(1,60,10,0.4,\lin),doneAction:Done.freeSelf);
|
||
|
|
||
|
Out.ar(out, Splay.ar(signal));
|
||
|
}).add;
|
||
|
);
|