Pbind와 구린음악


(
 SynthDef(
  \name, 
  { arg freq = 400;
	  var signal;
	  signal = LFSaw.ar([freq])*0.1;
     signal = signal * EnvGen.ar(Env.perc(0.01,1.5), doneAction:2);
     signal = Pan2.ar(signal, SinOsc.ar(10*SinOsc.kr(1/3)) );
	  Out.ar(0,signal);
	}
 ).play
)

x = Synth(\name, [\freq,500])

/////////////////////////////////////

(a = Pbind(
 //  \freq, Prand([400,500,600,700]*2,inf)
 // \note, 1
   \degree, Prand([1,2,3,4,5,6,7,8]-1, inf)
 , \dur, Pseq([1,2])
  //\instrument, \name
 , \strum,0.251
);)

a.play

//////////////////////////////////
//c = Prand([ [1,2,3,5,8,12,15] ]-1,1)
c = [1,2,3,5,8,12,15,2+14,3+14,5+14];
c.mirror2
(
Pseq(
[
 Pbindf(a, \degree, c)
//,Pbindf(a, \degree, c, \mtranspose, 7-1)
,Pbindf(a, \degree, c.mirror1, \mtranspose, 2-1)
,Pbindf(a, \degree, c.scramble, \mtranspose, 5-1)
,Pbindf(a, \degree, c.scramble.mirror2, \mtranspose, 2-1)
,Pbindf(a, \degree, c.scramble, \mtranspose, 5-1)
],inf
).play)

Advertisements