みなさん、こんばんわ、tn8です。
秋の夜長、supercolliderをするのにはぴったりですね。
最近、「クラフトワークは好きですか?」と聞かれることが多くなりました。同じ音を何度も聴いて、フィルターの係数やピッチが、あぁでもない、こうでもない… と、スパコと奮闘しなければいけないので、i’m sooooooooooooooo borrrrrrrrrrrrrrrrrrreddddd and tireeeeeeed !
あのレゾナンスとカットオフのピチピチした音は!
SCのRLPFなどでいろいろとやってもうまく出来ない、というときに便利なのがMoogVCFクラス。
ご存知、Moogシンセサイザーなフィルターです。
(私は古いひと?!だから、ついモーグじゃなくて、ムーグと呼び続けてしまいます、ミョ〜ん。)
SynthDef(\popcorn,{
arg amp= 1, sustain=0.1, freq=400, filtfreq1 = 5000, filtfreq2=4000, releaseTime = 0.1;
var env, sound;
env=EnvGen.ar(Env.perc(0.0001, releaseTime),doneAction:2);
sound = MoogVCF.ar(Pulse.ar([freq,freq/4],[0.3,0.7]), XLine.kr(filtfreq1, filtfreq2, 1), 0.7) * env;
Out.ar(0,Pan2.ar(sound, 0.0) * amp)
}).store;
(
~melo = Pbind(
\dur, Pseq([Pseq([0.5],6), 1, Pseq([0.5],6), 1, Pseq([0.5],14), 1],inf) * 0.45,
\amp, Pseq([0.8,0.6],inf),
\filtfreq1, Pseq([10000,18000,7000,12000] * 0.5,inf),
\filtfreq2, Pseq([1000, 500],inf),
\releaseTime, Pseq([Pseq([0.3],6), 0.5],inf),
\midinote, Pseq([ Pseq([72,70,72,67,63,67,60, 72,70,72,67,63,67,60, 72,74,75,74,75,72,74,72,74,70,72,67,63,67,72],1)] - 4, inf),
\instrument,\popcorn
).play;
)
Posted: 10月 8th, 2008 under 日々のSC.
Comments: none