// title: Ceci N'est Pas Une Pipe
// author: codepool
// description:
// Migration from the old SourceForge wiki.
// code:
s.boot;
p = ProxySpace.push(s);
~out.play;

p.fadeTime = 2;

(
f = { arg n = 10, fmin=1000, fmax=8000.0, dtMul=0.5;
		[
			Array.rand(n, fmin, fmax).sort,
			nil,
			Array.rand(n, dtMul*0.1, dtMul).sort.reverse
		]
	};
~pipe = { 
	var in;
	in = ~in.ar(8);
	in.collect({ arg chan;
		Klank.ar(Ref(f.value(rrand(4, 15), dtMul: rrand(40, 1).reciprocal)), chan)
	}) 
	* 0.4
}
)

~out = { Pan2.ar(Mix(~pipe.ar(8)), LFNoise1.kr(0.1)) };
~out = { Splay.ar(~pipe.ar(8)) * 8 };



~in = { PanAz.ar(8, Impulse.ar(6, 0, 0.5) + WhiteNoise.ar(0.01), MouseX.kr(-1, 1)) }; 
~in = { Array.fill(8, { Impulse.ar([1, 2, 3, 5].choose, pi.rand * MouseX.kr(0,1), 0.5) }) }; 


~in[0] = { PanAz.ar(8, Impulse.ar(Rand(1, 4), 0, 0.5), LFNoise1.kr(0.1)) }; 
~in[1] = { PanAz.ar(8, Impulse.ar(Rand(1, 4), 0, 0.5), LFNoise1.kr(0.1)) }; 
~in[2] = { PanAz.ar(8, PinkNoise.ar(0.02), LFNoise1.kr(0.1)) }; 
~in[3] = { PanAz.ar(8, PinkNoise.ar(0.02), LFNoise1.kr(0.1)) }; 
~in[4] = { PanAz.ar(8, PinkNoise.ar(0.02), LFNoise1.kr(0.1)) }; 

~in = { PanAz.ar(8, PinkNoise.ar(0.02), LFPulse.kr(Rand(1, 4), 0, Rand(0.02, 0.8)), LFNoise1.kr(0.1)) }; 

//add new layers
~in.send;
~in.send;
~in.send;

//feed over
~in[0] = { PanAz.ar(8, ~in.ar(1, MouseY.kr(0,6)), LFNoise1.kr(0.1)) }; 
~in[1] = { PanAz.ar(8, ~in.ar(1, MouseY.kr(1,7)), LFNoise1.kr(0.1)) }; 


************
/*
authors so far:
jrh 03
*/