(
SynthDef(\cuer,{|deladec=1.21,midi=60,divisor=2.01,cutoff=1200,cutoff2=6000|
    var grano,sen,delaytime,ruido;
     delaytime=[midi,midi+midi/divisor].midicps.reciprocal;
     grano=EnvGen.kr(Env.perc(0,0.01));
     ruido=PinkNoise.ar(grano);
     ruido=(ruido*0.9)+LPF.ar(Clip.ar(ruido,-0.49,0.92629),cutoff,1).wrap2(0.02);
          ruido=LPF.ar(ruido,cutoff2).trunc(LFNoise2.kr(6,0.02,0.05));
          ruido=ruido*1.1;
          sen=CombC.ar(ruido,delaytime,delaytime,deladec)*SinOsc.kr(LFNoise2.kr(5,4,5));
              DetectSilence.ar(sen,doneAction:2);
              Out.ar(0,sen)
                     }).send(s)
                     )   
   
  
 (
 e=Pseq([Pn(3600,40),500,230,Pn(1334,30)],inf).asStream;
 z=Prand([2600,Pn(1920,5),1503,2303,4784,3904,Pn(3000,12),Pn(6000,12),Pn(5700,10)],inf).asStream;
 t=Pseq([Pn(10,10),Pn(3,4),10,Pseq([4,8,14,18,5,5],4),Pn(5,10),Pshuf([20,3,10,5],3)],inf).asStream;
 Tdef(\caos,{
    inf.do{|i|
       
         a=Synth(\cuer);
       
         x=(i%4+10)*[0.124,0.135,0.226,0.165].choose;
         x=3.7 * x *(1.0 - x);
         
                 a.set(\midi,((x.abs)+i%(i%9+1)+10*4.991),
              		  \divisor,(i%26*x*0.004).abs+1.60,
              		  \cutoff,e.next,
              		  \cutoff2,z.next);
              		  
                      ((x.abs)* i%t.next*[0.03,0.07,0.05].wchoose([0.6,0.2,0.2])).wait
                  }}
                  )
                 )
        
       Tdef(\caos).quant_(0).play;