«change stuff in running Pbind with patternproxies» by alln4tural

on 12 Aug'12 20:48 in patternsexamplepatternproxies
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
(
SynthDef(\clusterboom, {| out = 0, freq=55, dur=1, amp=1|
	Out.ar(
		out,
		Splay.ar({SinOsc.ar(exprand(freq-(freq/128),freq+(freq/128)),0,0.1)}!33)
			* EnvGen.kr(Env.perc,1,1,0,dur,2)
			* amp
		)		
}).add;
);


(
~notes = [	21, 	21, 	9, 	19, 	19, 	9	];
~durs  = [	1/4,	1/4,	1/2,	1/8,	1/8,	14/8	];
~amps  = [	4,	4,	0,	3,	3,	0	];

~notespatternproxy = PatternProxy(Pxrand(~notes,inf)); 
~durspatternproxy  = PatternProxy(Pxrand(~durs, inf));
~ampspatternproxy  = PatternProxy(Pxrand(~amps, inf)); 

p = Pbind(
	\instrument, \clusterboom,
	\midinote,	~notespatternproxy,
	\dur, 	~durspatternproxy,
	'amp',	~ampspatternproxy, 
);
);
p.play;

// eval while running:

~notespatternproxy.source  = Pxrand(~notes + 7,inf); 
~notespatternproxy.source  = Pxrand(union(~notes, ~notes + 7),inf); 
~notespatternproxy.source  = Pxrand(~notes,inf);
raw 872 chars (focus & ctrl+a+c to copy)
reception
comments