(
SynthDef(\negro,{|freq, ancho,dur,pan,amp|
						var sig, env;
						sig=Pulse.ar([freq,freq*1.1], ancho, amp);
						sig=Pan2.ar(sig,pan);
					   env=EnvGen.kr(Env([0,1,1,0],[0.01,dur,0.01]),doneAction:2);
						Out.ar(0,sig*env);
						}).send(s)
)					
					
Synth(\negro,   [\freq,400.postln,\amp, 1,\pan, 0, \ancho, 0.1, \dur, [1,2,3].choose]);

(
Tdef(\negro, {var cuenta=0;
				inf.do{
							
							Synth(\negro, [\freq,[200,300,1000,450].choose.postln,\amp,[0,0,0.3].choose,  \pan, 0, \ancho, 0.1, \dur, [0.01,0.06,0.001].choose.postln]);		
							0.1.wait
							};
				})
)
Tdef(\negro).stop	
Tdef(\negro).play	

(
SynthDef(\yo,{|freq, ancho,dur,pan,amp|
						var sig, env;
						sig=Pulse.ar([freq,freq*1.1],ancho,amp);
						sig=Pan2.ar(sig,pan);
					   env=EnvGen.kr(Env([0,1,1,0],[0.01,dur,0.01]),doneAction:2);
						Out.ar(0,sig*env);
						}).send(s)
)					
					
Synth(\yo,   [\freq,2000.postln,\amp, 0.02,\pan, 0, \ancho, 100, \dur, [1,2,3].choose]);

(
Tdef(\yo, {var cuenta=0;
				inf.do{
							cuenta=(cuenta+1).postln;
							Synth(\yo, [\freq,[600,1000,1500].choose,\amp,[0,0,0.05,0.25,0.25].choose,  \pan, 0, \ancho, [0.5,0.1].choose, \dur, [0.01,0.05,0.02].choose]);		
							0.1.wait
							};
				})
)

Tdef(\yo).stop	
Tdef(\yo).play