domingo, 27 de febrero de 2011

mas y mas ProxySpace...

//ejemplo sonoro: track: iiinsnsbl3

:::click:descarga el audio:::
////escrito sobre emacs, pure:dyne 9.11
/////////////////////////////codigo://///////////////////////////
s.boot
s.quit
s.scope
////
p=ProxySpace.push(s);
p.fadeTime=1;
//////
s.record
///
TempoClock.tempo=115/60 //10/60//20/60//75/60;
/////
~o.play;

~uno={|ifrec=2|Normalizer.ar(RLPF.ar(Resonz.ar(LFTri.ar(Pulse.ar(Demand.kr(Impulse.kr(ifrec),0,Drand([1,2,4,8],inf)),0.5,80,90),0,0.5)*LFNoise0.ar(10000,0.1),Line.kr(220,10000,0.5),0.25),Demand.kr(Impulse.kr(4),0,Drand([800,1600,3200,6400,12000],inf)),0.25),0.05)};
~dos={|lft= -1,rght=1,ifrec=2,rfrec=2000|Normalizer.ar(Pan2.ar(BPF.ar(LFTri.ar(Pulse.ar(ifrec,0.5,6,4),0,0.25)*BrownNoise.ar(0.15),Demand.kr(Impulse.kr(ifrec),0,Drand([220,440,880,660],inf)),0.01),[lft,rght]),0.05)};
~tres={|ifrec=4,t_trig=0|EnvGen.ar(Env.perc(0.01,0.08),t_trig)*Normalizer.ar(Pulse.ar(Pulse.ar(ifrec,0.5,60,85),0.1,0.45)+SinOsc.ar(Pulse.ar(ifrec,0.5,60,85),0,0.75),0.95)};
~del={|dtim=0.05|CombC.ar(Mix(~tres.ar,~uno.ar,~dos.ar),0.25,dtim,0.8,0.55)};
~verb={FreeVerb.ar(~dos.ar,0.95,0.95,0.1,0.85)};
~pit={|prate=2,ifrec=1,rfreq=600|Compander.ar(Normalizer.ar(Resonz.ar(PitchShift.ar(Mix([~del.ar]),0.5,prate,0.95,0.025,0.5),rfreq,0.35),0.55,0.25),0,0.7,1,1,0.35,0.15)};
(
Tdef(\secs,{
a=Prand([1,1.3,1.7,2,2.2,2.5,2.9,3.2,3.4,3.7,4],inf).asStream;
b=Prand([0.5,2,1,4],inf).asStream;//~uno
c=Prand([0.5,1,2,4],inf).asStream;//~dos
d=Pwrand([0.25,0.5,0.75,1],[0.2,0.3,0.15,0.05],inf).asStream;    //~tres
e=Prand([100,200,400,800,1600],inf).asStream;
f=Prand([0.01,0.02,0.04,0.08],inf).asStream;
g=Prand([100,200,400,800,1600]+500,inf).asStream;
h=Pwrand([1,2,4],[0.2,0.3,0.15,0.05],inf).asStream;    //~tres
t=Pwrand([0.25,0.5,0.75,1],[0.05,0.55,0.25,0.15],inf).asStream;       
    inf.do{
        ~uno.set(\ifrec, b.next;
        ~dos.set(\ifrec, c.next);
        ~tres.set(\t_trig, d.next);
        ~tres.set(\ifrec, h.next);
        ~dos.set(\rfrec,g.next);
        ~pit.set(\rfreq, e.next);
        ~pit.set(\prate, a.next);
        ~del.set(\dtim, f.next);
        ~dos.set(\lft,[-1,1].choose);
        ~dos.set(\rght,[1, -1].choose);
        t.next.postln.wait;
}}
)
)
Tdef(\secs).play

///////controles
~o=      //////este para combinar los nodos
~o=~pit
~o=~uno
~o=~dos
~o=~tres
~o=~del
~o=~verb
~o=0
///
s.record


No hay comentarios:

Publicar un comentario