mas ProxySpace

//ejemplo sonoro: track: nnosprtamspltics

:::click:descarga el audio:::
////escrito sobre gedit, ubuntu 10.04
/////////////////////////////codigo://///////////////////////////
s.boot
s.quit
s.scope
////
p=ProxySpace.push(s)
p.fadeTime=0.5
p.free


~out.play
~sec={|t_trig=0,frec=60,oct=3|EnvGen.ar(Env.perc(0.5,5),t_trig)*LFTri.ar(frec.midicps/oct,0,0.3)*Saw.ar(frec.midicps/(oct)+2,1,0.5)}
~bombo={|dfrec=1|SinOsc.ar(Pulse.ar(Demand.kr(Impulse.kr(dfrec),0,Drand([1,2,4,8],inf)),0.5,80,120),0,0.25)}
~bombo2={|dfrec=2|SinOsc.ar(Pulse.ar(Demand.kr(Impulse.kr(dfrec),0,Drand([1,2],inf)),0.5,80,120),0,0.35)}
~canica={|dfrec=1,modmaxamp=1200|SinOsc.ar(Pulse.ar(Demand.kr(Impulse.kr(dfrec),0,Dseq([1,2,3,4,6,8,10,14,20,100],inf)),0.5,800,modmaxamp),0,0.15)}
~filt={|rq=0.2|RHPF.ar(~canica.ar,Line.kr(80,1200,10),rq,0.35)}
~rev2={FreeVerb.ar(~filt.ar,0.7,0.9,0.01)!2}
~rev={FreeVerb.ar(~sec.ar,1,0.95,0.01)!2}
~del={CombC.ar(~sec.ar,1,1,10)}
~del2={CombC.ar(~filt.ar,1,0.1,1)}
(
Tdef(\exp,{
    inf.do{
        ~sec.set(\t_trig,1);
        ~sec.set(\frec,[1,3,7].choose+[60,63,66,70,72].choose);
        ~sec.set(\oct,wchoose([1,1.5,2,3],[0.15,0.15,0.25,0.45]).postln);
        ~canica.set(\modmaxamp,[440,880,1200,2000].choose);
        wchoose([0.25,0.5,1,2],[0.15,0.15,0.25,0.45]).postln.wait;
}
})
)
Tdef(\exp).play////trigerea argumentos, no suena hasta ser igualado a ~out
Tdef(\exp).stop
/////hacer combinaciones de los nodos
~out=~del
~out=~rev+~del
~out=~bombo+~rev2+~rev+~filt+~sec+~del2
~out=~bombo2+~rev2+~rev+~del2+~del
~out=~rev+~rev2+~del+~del2+~filt
~out=~filt
~out=~rev+~filt
~out=0
...
////esto llama la mixer de nodos-proxy del ambiente igualado a"p"
ProxyMixer(p)
s.record