SynthDef(”simpleSaw”, {arg freq=400, out=0, releaseT=0.3, amp=0.8;

var source;

source = Saw.ar(freq) * EnvGen.ar(Env.perc(0.0001, releaseT, 1, -6), doneAction:2) * amp;

Out.ar(out, source);

}).store;

(
s.waitForBoot{

RedMst.clear;
RedMst.clock = TempoClock(120/60);
RedMst.quant = 4;
RedMst.skipEmpty = true;

RedMst.action = { };

RedTrk(
\simple,
Pbind(
\instrument, \simpleSaw,
\degree, Pseq([0, -3, 2, 0],inf),
\root,7,
\dur, Pseq([0.5, 0.5],inf)
), [0] );

RedTrk(
\simple1,
Pbind(
\instrument, \simpleSaw,
\degree, Pseq([0, -3, 2, 0],inf),
\root,7,
\dur, Pseq([0.45, 0.55],inf)
), [1] );

RedTrk(
\simple2,
Pbind(
\instrument, \simpleSaw,
\degree, Pseq([0, -3, 2, 0],inf),
\root,7,
\dur, Pseq([0.35, 0.65],inf)
), [2] );

RedTrk(
\simple3,
Pbind(
\instrument, \simpleSaw,
\degree, Pseq([0, -3, 2, 0],inf),
\root,7,
\dur, Pseq([0.25, 0.75],inf)
), [3] );

};
)

RedMst.play(0);
RedMst.next;
RedMst.prev;

Posted: 3月 13th, 2009 under JTEKC.
Comments: 3

先日紹介したiOSC用のSCプログラム。

// iOSCのhostタブのIP Adressに、使っているマシンのIPアドレスを設定する。
// Port番号は、SCのデフォルトである57120を設定する。

// 口口口　一番シンプルな例 for 3ボタン + 横1スライダーの場合
// ——

// ボタンの名前を変えず、Onの時に1,Offの時に0を出力するように設定している場合（おそらくこれがiOSCの初期状態）。

OSCresponder(nil, ‘/osc/button1′, { |t,r,msg|

case
{msg[1] == 1} {”button01_on”.postln}
{msg[1] == 0} {”button01_on”.postln}

}).add;

OSCresponder(nil, ‘/osc/button2′, { |t,r,msg|

case
{msg[1] == 1} {”button02_on”.postln}
{msg[1] == 0} {”button02_off”.postln}

}).add;

OSCresponder(nil, ‘/osc/button3′, { |t,r,msg|

case
{msg[1] == 1} {”button03_on”.postln}
{msg[1] == 0} {”button03_on”.postln}

}).add;

OSCresponder(nil, ‘/osc/slider1′, { |t,r,msg| msg[1].postln}).add;

Posted: 3月 12th, 2009 under JTEKC.
Comments: none

SynthDef(”test”, {arg freq, out, releaseT=0.3, amp;

var source;

source = Saw.ar(freq) * EnvGen.ar(Env.perc(0.001,releaseT, 1, -06), doneAction:2);

Out.ar(out, source * amp)

}).store;

Pbind(
\tempo,0.9,
\instrument, \test,
\degree, Pseq([0,-3,2,0],inf),
\root,7,
\relaseT, 0.3,
\mtranspose, Pseq( [0,7].stutter(4),inf),
\dur, Pseq([0.25],inf)
).play;

SynthDef(”aDelay”, { arg delay = 0.25;

Out.ar( 1, DelayN.ar( In.ar(0, 1), delay, delay ) )

}).load(s);

~effect = Group.tail(s);

Synth.head(~effects, “aDelay”)

Posted: 3月 9th, 2009 under JTEKC.
Comments: none

Pbind(
\instrument, \test,
\degree, Pseq([0,-3,2,0],inf),
\root,7,
\harmonic, [0.75,1,2], // 比率で平行移動
\dur, Pseq([0.5],inf)
).play;

Pbind(
\instrument, \test,
\degree, Pseq([0,-3,2,0],inf),
\root,7,
\mtranspose, Pseq( [0,7].stutter(4),inf), // [0,0,0,0, 7,7,7,7] 要素をn回づつ繰り返す
\dur, Pseq([0.5],inf)
).play

Posted: 3月 9th, 2009 under JTEKC.
Comments: none

Eventクラスを使いこなしなさい。

Pbind(
\instrument, \test,
\degree, Pseq([0,-3,2,0],inf),
\root,7,
\dur, Pseq([0.5],inf)
).play

Posted: 3月 8th, 2009 under JTEKC.
Comments: none

SynthDef(”test”, {arg freq, out;
var source;
source = Saw.ar(freq) * EnvGen.ar(Env.perc(0.00001, 0.4, 1, -6), doneAction:2);
Out.ar(out, source)
}).store;

Pbind(
\instrument, “test”,
\midinote, Pseq([67,62,71,67],inf),
\dur, Pseq([0.5],inf)
).play

Posted: 3月 7th, 2009 under JTEKC.
Comments: none