barpiano jam

(
//barpiano jam sc3d
//julian rohrhuber
#{
{ var my, mx, arr, rate;
	my = MouseY.kr([0, 1]);
	mx = MouseX.kr([0, 1]);
	rate = 8.5;
	Mix.ar(
	RLPF.ar(
		Decay2.ar(
			ImpulseSequencer.ar([
				`(Array.fill(32, { arg i; [1.0.rand, 0].wrapAt(i) })), 
				`(Array.fill(32, { 1.0.rand }))],
				Impulse.ar(rate, 0.4)
			),
			[0.04, 0.015],
			0.5*mx,
			CombN.ar(PinkNoise.ar(0.05), 0.01, [60, 100, 200, 250].reciprocal, 0.9)
		),
	LFNoise1.ar(rate * [1, 1, 2, 1]/8, 300, 400),
	0.1
	)
)
	+ SinOsc.ar([1, 1.01] * Sequencer.kr({ arg i; 
						if((my.poll-0.5).coin || (i==0), { arr = Array.fill(32, {rrand(1, 10)*[50, 100].wchoose([0.3, 0.7])}) });
						arr.wrapAt(i) 
						}, Impulse.kr(rate) )
	, 0, mx.max(0.2)/60)

}.play;
}.send;
)

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