Updates from 12월, 2011 댓글 스레드 토글 전환 | 키보드 단축키

  • morogado December 1, 2011 6:21 pm 퍼머링크 | 응답  

    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
     
    • joynimm 12월 1, 2011 7:13 오후 퍼머링크 | 응답

      참잘하셨습니다.

      Pbindf를 써보셔도 됩니다.

      +12를 쓰신이유는 옥타브를 쓰려 했던것 같은데
      \degree에서 옥타브는 +7입니다.
      \octave 키를 이용하셔도 됩니다.

      아래는 위의 코드롤 고쳐 넣은 예제입니다.

      (
      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;         		
      )
       a=	Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([1,3,4,5,6,5,4,3]-1, 1));
       b=  Pbind(\instrument, \bis1,  \dur, 0.2, \degree, Pseq([5,3,2,1,0,1,2,3]-1, 1), \octave, 7);
      
      a.play
      b.play
      
      (Pseq([
       Pbindf(a, \mtranspose, 0)
      ,Pbindf(a, \mtranspose, 1)
      ,Pbindf(a, \mtranspose, 2)
      ,Pbindf(a, \mtranspose, 3)
      ,Pbindf(a, \mtranspose, 4)
      ,Pbindf(a, \mtranspose, 5)
      ,Pbindf(a, \mtranspose, 6)
      ,Pbindf(b, \mtranspose, 0)
      ,Pbindf(b, \mtranspose, -1)
      ,Pbindf(b, \mtranspose, -2)
      ,Pbindf(b, \mtranspose, -3)
      ,Pbindf(b, \mtranspose, -4)
      ,Pbindf(b, \mtranspose, -5)
      ,Pbindf(b, \mtranspose, -6)
      ],inf).play
      )
      
  • joynimm November 30, 2011 12:05 pm 퍼머링크 | 응답  

    숙제방 

    여기는 숙제방입니다.

    숙제 못하면 관심사병으로 관리할 겁니다.

    카테고리에 글쓰는 법

    화면 제일위의 Sound Art Lab 메뉴에서 대시보드를 누릅니다.
    왼쪽 메뉴에서 글 -> 새글 쓰기를 누릅니다.

    제목을 넣고 글을 씁니다.

    오른쪽의 Categories에 숙제방을 선택합니다.

    오른쪽에 올리기를 누릅니다.
    ….

     
c
새 글 작성
j
다음 글/다음 댓글
k
이전 글/이전 댓글
r
응답
e
편집
o
댓글 표시/숨기기
t
상위로 가기
l
로그인하기
h
도움말 표시/숨기기
shift + esc
취소