pbind 하논1번

숙제라도 올리겠습니다. ㅎㅎ

(
SynthDef(\bis1, {arg freq=440;
	var osc1, osc2, env, signal;
   osc1 = SinOsc.ar(freq,0,0.5);
   osc2 = SinOsc.ar(10,0,0.5);
   env = EnvGen.kr(Env.perc(0.1),doneAction:2);
   signal = (osc1*osc2)*env;
   Out.ar(0,signal!2);
   }).play;         		
)


(
Pseq([
 	Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([0, 2 , 3, 4, 5, 4, 3, 2], 1)),
     Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([0, 2 , 3, 4, 5, 4, 3, 2]+1, 1)),
     Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([0, 2 , 3, 4, 5, 4, 3, 2]+2, 1)),
     Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([0, 2 , 3, 4, 5, 4, 3, 2]+3, 1)),
     Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([0, 2 , 3, 4, 5, 4, 3, 2]+4, 1)),
     Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([0, 2 , 3, 4, 5, 4, 3, 2]+5, 1)),
     Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([0, 2 , 3, 4, 5, 4, 3, 2]+6, 1)),
     Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([6, 4, 3, 2, 1, 2, 3, 4]+12, 1)),
     Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([6, 4, 3, 2, 1, 2, 3, 4]+12-1, 1)),
     Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([6, 4, 3, 2, 1, 2, 3, 4]+12-2, 1)),
     Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([6, 4, 3, 2, 1, 2, 3, 4]+12-3, 1)),
     Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([6, 4, 3, 2, 1, 2, 3, 4]+12-4, 1)),
     Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([6, 4, 3, 2, 1, 2, 3, 4]+12-5, 1)),
     Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([6, 4, 3, 2, 1, 2, 3, 4]+12-6, 1))

], inf).play;
)

Advertisements