InGrainIBF granular synthesis with input and user supplied envelopes

and Ambisonic panning

 *ar(trigger, dur, in, envbuf1, envbuf2, ifac,  azimuth, elevation, rho, mul, add) 


trigger - a kr or ar trigger to start a new grain. If ar, grains after the start of the synth are sample accurate.

The following args are polled at grain creation time

dur - size of the grain.

in - the input to granulate

envbuf1 - a buffer with a stored signal to be used for the envelope of the grain

envbuf2 - a buffer with a stored signal to be used for the envelope of the grain

ifac - an interpolation factor. interpolates between the two envelopes where 0 is all envbuf1, and 1 is all

envbuf2

azimuth -  in radians, -pi to pi

elevation -  in radians, -0.5pi to +0.5pi

rho - the speaker radius (1 places shound at the radius, <1 within the radius, >1 is outside the radius)

beyond the radius, nothing happens.

Examples:


s.boot;


SynthDef(\in_grain_test, {arg gate = 1, amp = 1, envbuf1, envbuf2;

var w, x, y, z;

#w, x, y, z = InGrainIBF.ar(Impulse.kr(10), 0.1, PinkNoise.ar, envbuf1, envbuf2,

MouseX.kr(0, 1), WhiteNoise.kr.range(-0.25pi, 0.25pi), 0, 1,

EnvGen.kr(

Env([0, 1, 0], [1, 1], \sin, 1),

gate,

levelScale: amp,

doneAction: 2));

Out.ar(0, DecodeB2.ar(4, w, x, y));

}).load(s);


y = Env([0, 1, 0], [1, 1], \sin).asSignal(1024);

z = Env([0, 1, 0], [1, 1], [10, -10]).asSignal(1024);

s.sendMsg(\b_alloc, b = s.bufferAllocator.alloc(1), 1024, 1, [\b_setn, b, 0, 1024] ++ y)

s.sendMsg(\b_alloc, c = s.bufferAllocator.alloc(1), 1024, 1, [\b_setn, c, 0, 1024] ++ z)

s.sendMsg(\s_new, \in_grain_test, a=s.nextNodeID, 0, 1, \amp, 0.2, \envbuf1, b, \envbuf2, c);

s.sendMsg(\n_set, a, \gate, 0);

s.sendMsg(\b_free, b);

s.sendMsg(\b_free, c);