(
Instr.new("StreichWalker", {	|buf,rate=1, dur=0.1, pos = 0.1, amp = 0.9, trigr = 64, randoffset = 0.01, flange = 1 |
_____var clk, pan, chain;
_____clk = Impulse.kr(256);
_____pos = pos + TRand.kr(0, randoffset, clk);
_____Mix.new ([TGrains.ar(2, 	// numChannels
_______________ clk,	// trigger
_______________  buf, 	_____// bufnum
_______________ //rate, 	// rate
_______________ rate + TRand.kr(flange/(-1000), flange/1000, clk), // this is going in a flanger direction, sorta
_______________ pos, 	// centerPos
_______________ dur, 	// dur
_______________ TRand.kr(-1,1, clk), //pan, 	// pan
_______________ amp),	// amp
__________    ]);
});
);

(
SynthDef(\clusterboom, {| out = 0, freq=55, dur=1, amp=1|
_____Out.ar(
__________out,
__________Splay.ar({SinOsc.ar(exprand(freq-(freq/128),freq+(freq/128)),0,0.1)}!33)
_______________* EnvGen.kr(Env.perc,1,1,0,dur,2)
_______________* amp
__________)		
}).add;
);

1.do{|i|  ~streicherList = ~streicherList.add(~streichCh.play(Instr.at("StreichWalker")));};


(
~baseamp.isNil.if  {~baseamp  = 1};
~waitroot.isNil.if {~waitroot = 1};
~direction.isNil.if {~direction = 1};
~jumpPosition = 0;
~cleanBufNum.isNil.if {~cleanBufNum = 0} {(~cleanBufNum > (~buffers.size - 1)).if {~cleanBufNum = 0}};
(
~rateChooser.notNil.if {~rateChooser.pause};
~rateChooser.free;
//~rateChooser = Task({inf.do{~rate = [1/32,1,1,1].choose;0.1.wait;};}); 
//~rateChooser = Task({inf.do{~rate = [1/32,22/24,22/24].choose;0.1.wait;};}); 
~rateChooser = Task({inf.do{~rate = [1/32,1/16,1/8, 1,1,1,1,1,1].choose;(~waitroot/8).wait;};}); 
//~rateChooser = Task({inf.do{~rate = [1/32,1/16,1/8,1/4, 1].choose;(~waitroot/8).wait;};}); 
~rateChooser.play;
);  
(
~rateSetter.notNil.if {~rateSetter.pause};
~rateSetter.free;
//~rateSetter  = Task({inf.do{~streicherList.choose.synth.set(\rate, ~rate);(~waitroot/4).wait;};});
~rateSetter  = Task({inf.do{~streicherList.choose.synth.set(\rate, ~rate);(~waitroot/8).wait;};});
~rateSetter.play;
);
(
~posChooser.notNil.if {~posChooser.pause};
~posChooser.free;
//~posChooser = Task({inf.do{~jumpPosition = ~buffers[~cleanBufNum].duration.rand;0.1.wait;};});
//~posChooser = Task({inf.do{~jumpPosition = (~jumpPosition + 0.001)%(~buffers[~cleanBufNum].duration);0.001.wait;};});
~posChooser = Task({inf.do{~jumpPosition = (~jumpPosition + (0.01 * ~direction));(~waitroot/64).wait;};});
//~posChooser = Task({inf.do{~jumpPosition = (~jumpPosition - 0.01);(~waitroot/8).wait;};});
~posChooser.play; 
);
(
~posSetter.notNil.if {~posSetter.pause};
~posSetter.free;
~posSetter = Task({inf.do{~streicherList.choose.synth.set(\pos, ~jumpPosition);	(~waitroot/32).wait;};});
// thought this might get rid of the clicks, but no:
/*
~posSetter = Task({inf.do{
	var chosen = ~streicherList.choose.synth;
	chosen.set(\amp, 0);	
	chosen.set(\pos, ~jumpPosition);	
	chosen.set(\amp, ~baseamp);	 
	(~waitroot/32).wait;
};});
*/
~posSetter.play;
);

(
~bufSetter.notNil.if {~bufSetter.pause};
~bufSetter.free;
//~bufSetter = Task({inf.do{~streicherList.choose.synth.set(\buf, ~buffers[~cleanBufNum]);0.5.wait;};});
~bufSetter = Task({inf.do{~streicherList.choose.synth.set(\buf, ~buffers[~cleanBufNum].bufnum + 1);(~waitroot/2).wait;};});
//~bufSetter = Task({inf.do{~streicherList.choose.synth.set(\buf, ~rectoBuffer.bufnum + 1);0.5.wait;};});
~bufSetter.play;
);
(
~randominterference.notNil.if {~randominterference.pause};
~randominterference.free;
~randominterference = Task({inf.do{~streicherList.choose.synth.set(\pos, 33.0.rand); (~waitroot/2).wait;};});
~randominterference.play;
);

(
~lag.isNil.if {~lag = 1/8};
~lagger.notNil.if {~lagger.pause};
~lagger.free;
~lagger = Task({inf.do{~streicherList.choose.synth.set(\pos, ~jumpPosition - ~lag);	(~waitroot/8).wait;};});
~lagger.play;
);

)
(
~bufSetter.notNil.if {~bufSetter.pause};
~bufSetter.free;
~bufSetter = Task({inf.do{
_____~streicherList.choose.synth.set(\buf, [
__________//~buffers.choose.bufnum, 
__________~buffers[~cleanBufNum].bufnum, 
__________~liveBuf.bufnum].choose 
_____+0);
_____(~waitroot/16).wait;};});
~bufSetter.play;
)

(
~silences.isNil.if 	{~silences = [1/8,1/4,1/2]};
~bassmidis.isNil.if	{~bassmidis = [9,21,22]};
~boom_p.isNil.if         {~boom_p         = false};
~bass.isNil.if           {~bass            = 15.midicps}; 
~boomamp.isNil.if        {~boomamp         = 4         }; 
~boomdur.isNil.if        {~boomdur         = 1/2       }; 
~boomcoin.isNil.if       {~boomcoin        = 1/2       }; 
~silencer.notNil.if {~silencer.pause};
~silencer.free;
~silencer = Task({inf.do{
_____~streichCh.preSends.first.level_(0,false,false);
_____~streicherList.do{|i| i.synth.set(\amp, 0);};
_____(~silences.choose * ~waitroot).wait;
_____if (~boom_p && 0.75.coin) {
__________0.25.coin.if {~bass = ~bassmidis.choose.midicps};
__________~longClickCh.play('clusterboom', ['freq', ~bass, 'amp', ~boomamp, 'dur', ~boomdur * [1,1,1,4].choose]);
_____};
_____0.25.coin.if {
__________~reverbCh.mute(true);
__________((1/8)* ~waitroot).wait;
__________~reverbCh.mute(false);
_____};
_____~streichCh.preSends.first.level_(0.1,false,false);
_____~streicherList.do{|i| i.synth.set(\amp, ~baseamp);};
_____(~silences.choose * ~waitroot).wait;
};}); 
~silencer.play;
);





_______________________________________________________________________________
pic: http://www.flickr.com/photos/jstar/2826035495/in/faves-48773669@N02 

sc3

geoffrey.wright