View this PageEdit this PageUploads to this PageHistory of this PageTop of the SwikiRecent ChangesSearch the SwikiHelp Guide

holding myself, not to cry

(
//holding on myself, not to cry
//julian rohrhuber 12/12/01 

play({
	var out, frq, amp, trig, pr, pm, p1, p2;
	frq = Plug.kr(200, 0.01);
	pr = Prand([1, 0],1);
	pm = Pfin(1, Pshuf([0, 0.5, 1, 0.5], inf).asStream);
	p1 = Pseq([1.1, pr, 0, pm, 1, 0, pm, pm], inf);
	p2 = Pseq([0.2, pm, 0, pm, 1, 0, pm, pr], inf);
	trig = ImpulseSequencer.ar(Prand([p1,p2], inf).asStream*0.1, Impulse.ar(9));
	out = OverlapTexture.ar({
		Pan2.ar(
			Klank.ar( 
				`[	
					Array.fill(6, { arg i; i+1+0.1.rand2 }), 
					nil,							
					Array.fill(6, { 0.2 + 1.0.rand / 2 }) 
				],
				
					trig,  
				
				SinOsc.kr(MouseX.kr(40, 3000, 'exponential'), 0, 0.15, 1)*frq
			), 
			Line.kr(1.0.rand2, 1.0.rand2, 8) 
		)
	}, 2, 3, 3, 2);
	amp = Amplitude.kr(out, 0);
	Sequencer.kr({ frq.source = rrand(600, 100); 0.0 }, Impulse.kr(20*amp)*(amp > 0.3));
	out * 0.5;
})
)



Links to this Page