//Eduardo H. Obieta
//www.laad.com.mx
s.boot
p=ProxySpace.push(s)
p.fadeTime=4
~out.play

~uno={SinOsc.ar(Demand.ar(Impulse.ar(2),0,Dseq([Dseq([60,65,69].midicps,2),Dseq([60,65,70].midicps,3),Dseq([60,65,69].midicps,2),Dseq([60,65,72].midicps,3)],inf)),0,0.9)*Pulse.ar(Demand.ar(Impulse.ar(1),0,Dseq([Dseq([2],2),Dseq([2],2)],inf)))!2}

~dos={BPF.ar(WhiteNoise.ar,14000,200/1000,0.6)*Pulse.ar(Demand.ar(Impulse.ar(1),0,Dseq([0.5],inf)),0.5,0.5)!2}

~tre={SinOsc.ar(Demand.ar(Impulse.ar(6),0,Dseq([Dseq([60,65,69].midicps,4),Dseq([60,65,70].midicps,4),Dseq([60,65,69].midicps,4),Dseq([60,65,72].midicps,4)],inf)),0,0.9)}
~cua={LFTri.ar(Demand.ar(Impulse.ar(1),0,Dseq([24,29,33].midicps,inf)),0.5,1)}
~cin={Pulse.ar(Demand.ar(Impulse.ar(1),0,Dseq([1,2,4],inf)))*SinOsc.ar(80,0,0.7)}

~out=~uno
~out=~uno+~dos
~out=~uno+~dos+~tre
~out=~uno+~dos+~tre+~cua
~out=~uno+~dos+~tre+~cua+~cin
~out=~cua
~out.play

p.pop
p.free