s.boot

p=ProxySpace.push(s)

~out
~out.play

~clip={arg t_trig, freq=1000, amp=1;EnvGen.kr(Env.perc(0.01,0.1),t_trig)*(LPF.ar(Mix(Klank.ar(`[Array.rand(10,90,100),nil,0.1],Dust.ar(100))),Line.kr(freq*4,freq,1))+SinOsc.ar(freq,0,0.3))*amp}

~sin={arg freq=40, vel=12;Blip.ar(SinOsc.kr(vel,0,freq/5,freq),310,0.41)}

~out=~clip
~out=~otro
~out=~clip+~otro+~sin.set(\freq, 130)
~out=~sin.set(\freq, 20, \vel, exprand(10,500))
~out=~sin.set(\freq, 20, \vel, exprand(10,500))+~otro
~out=~otro+~otra
~out=0

(
Tdef(\aja, {var cuenta=0, amp=1;
			inf.do{
					switch(cuenta%8,0,{~clip.set(\t_trig, 1, \freq, 100, \amp, 0.5);},
								  2,{~clip.set(\t_trig, 1, \freq, 100, \amp, 0.5);},
								  4,{~clip.set(\t_trig, 1, \freq, 1000, \amp, 0.5);}
						);
						~clip.set(\t_trig, 1, \freq, rrand(10,10000), \amp, [0,0.5].choose);
						cuenta=cuenta+1;
					0.05.wait;
					}
			})
)	

Tdef(\aja).play	

~otro={Ringz.ar(Decay2.ar(LFNoise0.ar(100),0.01,0.02,Dust.ar(100)),[60,62,63,65,66,68,69,71].choose.midicps*8,0.9532,0.00241)};
~otra={Ringz.ar(Decay2.ar(LFNoise0.ar(100),0.01,0.02,Dust.ar(100)),[60,62,63,65,66,68,69,71].choose.midicps*8,0.9532,0.00241)}