Got rid of the reverb , just kep the frequency shifter
Tied to Pdef, pbind sequencing the frequency shifter’s frequencies , but the sound keeps adding up,
Voices are not released for the effect , as expected since the effect has no done action .
But since it’s a stereo effect how come voices are added when sequenced from Pbind?
So another problem to tackle ,
(
SynthDef(\twoop,
{
|fmamt=1,modoffset=24,moatt=0.001,modrel=0.500,ampatt=0.001,amprel=0.800,pitch=48,outt=0.3,pan=0.2,feed=0.2,output=0|
var mod,modenv,ampenv,carr;
mod=SinOscFB.ar((pitch+modoffset).midicps,feedback:feed)*fmamt;
modenv=EnvGen.ar(Env.perc(moatt,modrel),doneAction:0);
ampenv=EnvGen.ar(Env.perc(ampatt,amprel),doneAction:2);
carr=SinOsc.ar(pitch.midicps,(mod*modenv))*ampenv*outt;
carr=Pan2.ar(carr,pos:pan);
Out.ar(bus:output,carr);
}).add
);
/////////
(
SynthDef(\revv,
{ | inbus=20,ff=50|
var in;
in=In.ar(inbus,2);
in=FreqShift.ar(in,ff);
Out.ar(0,in);
}
).add
)
//////////////
~reverb=Synth(\revv);
~reverb.free;
(
Pdef(\shifter,
Pbind(\instrument,
\revv,
\dur,4,
\inbus,20,
\ff,Pseq([1000,50],inf),
)
))
(
Pdef(
\crt,
Pbind(
\instrument,
\twoop,
\pitch,Pseq([40,42,47,[45,52],37,34,31,28,40,42,47,[45,52],47,42,40,28,31,34,37],inf),
\dur,Pseq([1/2,1,1/2,1/4,1/4,1/4,1/4],inf),
\fmamt,Prand([2,1,3,4],inf),
\modrel,Prand([0.425,0.525,0.500,0.550,1,0.625,0.500,0.5,2.8],inf),
\modoffset,Prand([12,0,12,24],inf),
\feed,Pwhite(0.3,0.5,inf),
\pan,Prand([-0.3,0,0.3],inf),
\amprel,Pwhite (0.08,0.5,inf),
\output,20,
)
)
)
//////////
;
////////////////////
Pdef(\shifter).stop;///////////FM
Pdef(\shifter).play(t);
Pdef(\crt).stop;///////////FM
Pdef(\crt).play(t);
t=TempoClock(175/60).permanent_(true);