みなさん、こんにちは、クラフトワイフです。タンジェリンドリーム、観てますか?
私はコードを書いています。Craftwifeの音楽につかわれている音はすべて(声の部分はのぞく)SuperColliderという音響合成プログラミング言語/環境でできています。シンセっぽい音も、ドラムの音も、ぜんぶね。どういうものかというと、下みたいなものです。全部こういうアルファベットとか数字がならんだ文字から、音をつくっています。
音源をリリースしないCraftwifeは、コードを少し公開してみます。SuperColliderをお使いの方は、SynthDefを定義してから、Pbindを実行してみてください。
10/10のオープニングは、ゆったりしたこういう感じ。
~chordamp = 0.5;
Pbind(
\instrument, \ab_AutoSaw,
\panE, 0.8,
\filtfreq1, Prand([200,300,400,600],inf),
\filtfreq2, Prand([2800,3000,2400,2600],inf),
\filterT, 0.5,
\bend,0.999,
\attack, 0.1,
\midinote, Pshuf([69,78,76,73, 69,74,73,69, 64,71,69],inf) ,
\dur, Pseq([1,1,1.5,0.5, 1,1,1.5,0.5,1,1,6],inf) * 2,
\amp, Pseq([0.7,0.6,0.5],inf) * Pfunc({~chordamp})
).play;
Pbind(
\instrument, \ab_AutoSaw,
\panE, -0.8,
\filtfreq1, Prand([200,300,400,600],inf),
\filtfreq2, Prand([2800,3000,2400,2600],inf),
\filterT, 0.5,
\bend,0.999,
\attack, 0.1,
\midinote, Pshuf([69,78,76,73, 69,74,73,69, 64,71,69],inf) -12 ,
\dur, Pseq([1,1,1,0.5, 1,1,1.5,0.5,1,1,7],inf) * 2,
\amp, Pseq([0.7,0.6,0.5],inf) * Pfunc({~chordamp})
).play;
/////////
SynthDef(\ab_AutoSaw, { // chord
arg out= 0, gate= 1, freq= 200, rate= 1, amp= 0.5, releaseT = 0.8, filtfreq1 = 300, filtfreq2 = 2400, filterT=0.6, dur,relT=1.0,bend=1.0,
rev_mix = 0.4, rev_room = 0.7, rev_damp = 0.2, panS=0,panE=0,panT=0.01, attack=0.3;
var e, z;
e= EnvGen.kr(Env.adsr(attack,releaseT * dur, releaseTime:relT), gate, doneAction:2);
freq = freq*EnvGen.kr(Env.new([1, 1, bend], [1, 4], -2));
x = FreeVerb.ar(LPF.ar((LFSaw.ar(freq+1,0.1) + Pulse.ar(freq))
,XLine.kr(filtfreq1, filtfreq2, dur * filterT)) ,rev_mix,rev_room,rev_damp ) * amp;
Out.ar(out, Pan2.ar(x*e, Line.kr(panS,panE,panT)));
}).store;
Posted: 9月 5th, 2009 under AACサウンフォパフォーマンス道場, 日々のSC.
Comments: none