PingPong stereo ping pong delay

PingPong.ar(bufnum, inputArray, delayTime, feedback, rotate)

Bounces sound between two outputs ...  like a ping-pong ball.

PingPong is actually a compound built upon RecordBuf and PlayBuf.

bufnum - first index of a multi channel buffer .

inputArray - an array of audio inputs, the same size as your buffer.

delaytime - delay time in seconds..

feedback - feedback coefficient.

rotate - default 1: which rotates the inputArray by one step.  (left -> right, right -> left)

rotation of 0 (or 2) would result in no rotation to the inputArray

(

s = Server.local;

s.waitForBoot({

b = Buffer.alloc(s,44100 * 2, 2);

SynthDef("help-PingPong",{ arg out=0,bufnum=0,feedback=0.5,delayTime=0.2; 

var left, right;

left = Decay2.ar(Impulse.ar(0.7, 0.25), 0.01, 0.25, 

SinOsc.ar(SinOsc.kr(3.7,0,200,500)));

right = Decay2.ar(Impulse.ar(0.5, 0.25), 0.01, 0.25, 

Resonz.ar(PinkNoise.ar(4), SinOsc.kr(2.7,0,1000,2500), 0.2));

Out.ar(0,

PingPong.ar(bufnum, [left,right], delayTime, feedback, 1)

)

}).play(s,[\out, 0, \bufnum, b.bufnum,\feedback,0.5,\delayTime,0.1]);

});

)

(

s = Server.local;

s.waitForBoot({

b = Buffer.alloc(s,44100 * 2, 2);

SynthDef("help-PingPong",{ arg out=0,bufnum=0;

var left, right;

left = Decay2.ar(Impulse.ar(0.7, 0.25), 0.01, 0.25,

SinOsc.ar(SinOsc.kr(3.7,0,200,500)));

right = Decay2.ar(Impulse.ar(0.5, 0.25), 0.01, 0.25,

Resonz.ar(PinkNoise.ar(4), SinOsc.kr(2.7,0,1000,2500),

0.2));

Out.ar(0,

PingPong.ar(bufnum, [left,right] *  EnvGen.kr(Env([1, 1, 0], [2, 0.1])), 

0.1, 0.8, 1)

)

}).play(s,[\out, 0, \bufnum, b.bufnum]);

});

)

(

Patch({ arg buffer,feedback=0.5,delayTime=0.2; 

var left, right;

left = Decay2.ar(Impulse.ar(0.7, 0.25), 0.01, 0.25, 

SinOsc.ar(SinOsc.kr(3.7,0,200,500)));

right = Decay2.ar(Impulse.ar(0.5, 0.25), 0.01, 0.25, 

Resonz.ar(PinkNoise.ar(4), SinOsc.kr(2.7,0,1000,2500), 0.2));

PingPong.ar(buffer.bufnumIr, [left,right], delayTime, feedback, 1)

}).gui

)