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

• Code Pool SC2 last edited on 5 April 2004 at 3:07 pm by max2-037.dialin.uni-hamburg.de
• enter. last edited on 29 January 2003 at 10:46 pm by 203.14.169.19
• Algorithmen Heute last edited on 24 June 2002 at 12:37 am by max2-068.dialin.uni-hamburg.de