14

キャリアとモジュレータ

最もシンプルな形式では、1980年代から有名で、ヤマハのDX7も採用した周波数変調（FM）シンセシスは、１つのオシレータを使って他のオシレータの周波数を変調するというものです。FMシンセシスでの変調をかけるためのオシレータは、通常はオーディオ・レートで動作する様に指定され、その振幅はエンベロープや他のオシレータ、すなわち低周波のオシレータ、によって形作られます。

FM合成では、音色はキャリアに対するモジュレータの効果によって異なります。このため、モジュレータは通常オーディオレートで動作する様に指定されます。( SynthDef("fm1", { arg bus = 0, freq = 440, carPartial = 1, modPartial = 1, index = 3, mul = 0.05; // インデックスの値は通常は0から24まで // carPartial :: modPartial => car/mod ratio var mod; var car; mod = SinOsc.ar( freq * modPartial, 0, freq * index * LFNoise1.kr(5.reciprocal).abs ); car = SinOsc.ar( (freq * carPartial) + mod, 0, mul ); Out.ar( bus, car ) }).add; ) ( Synth("fm1", [\bus, 0, \freq, 440, \carPartial, 1, \modPartial, 2.4]); Synth("fm1", [\bus, 1, \freq, 442, \carPartial, 1, \modPartial, 2.401]); )

////////////////////////////////////////////////////////////////////////////////////////////////////

周波数変調とリバーブ

////////////////////////////////////////////////////////////////////////////////////////////////////

コンポーネント

"fm"のSynthDefを、1つのSynthDefはモジュレータ、1つのSynthDefはキャリアという2つの部分に分割することでより機能性 が高まる。キャリアのシグナルを2つまたはそれ以上のモジュレータで加工することができる。( SynthDef("carrier", { arg inbus = 2, outbus = 0, freq = 440, carPartial = 1, index = 3, mul = 0.2; // インデックスの値は通常は0から24まで // carPartial :: modPartial => car/mod ratio var mod; var car; mod = In.ar(inbus, 1); Out.ar( outbus, SinOsc.ar((freq * carPartial) + mod, 0, mul); ) }).add; SynthDef("modulator", { arg outbus = 2, freq, modPartial = 1, index = 3; Out.ar( outbus, SinOsc.ar(freq * modPartial, 0, freq) * LFNoise1.kr(Rand(3, 6).reciprocal).abs * index ) }).add; ) ( var freq = 440; // 左チャンネルのためのモジュレータ Synth.head(s, "modulator", [\outbus, 2, \freq, freq, \modPartial, 0.649, \index, 2]); Synth.head(s, "modulator", [\outbus, 2, \freq, freq, \modPartial, 1.683, \index, 2.31]); // 右チャンネルのためのモジュレータ Synth.head(s, "modulator", [\outbus, 4, \freq, freq, \modPartial, 0.729, \index, 1.43]); Synth.head(s, "modulator", [\outbus, 4, \freq, freq, \modPartial, 2.19, \index, 1.76]); // 左と右のチャンネルのためのキャリア Synth.tail(s, "carrier", [\inbus, 2, \outbus, 0, \freq, freq, \carPartial, 1]); Synth.tail(s, "carrier", [\inbus, 4, \outbus, 1, \freq, freq, \carPartial, 0.97]); )

////////////////////////////////////////////////////////////////////////////////////////////////////

コンポーネントとリバーブ

この例は前に定義されたリバーブと２つのシンセ定義（モジュレータが１つのSynthDefで他方はキャリア）で説明したモデルを組み合わせています。( var freq; // キャリアとモジュレータのためのランダムな基本周波数を生成する freq = 330.0.rrand(500); // 左チャンネルのためのモジュレータ Synth.head(s, "modulator", [\outbus, 60, \freq, freq, \modPartial, 0.649, \index, 2]); Synth.head(s, "modulator", [\outbus, 60, \freq, freq, \modPartial, 1.683, \index, 2.31]); // 右チャンネルのためのモジュレータ Synth.head(s, "modulator", [\outbus, 62, \freq, freq, \modPartial, 1.11, \index, 1.43]); Synth.head(s, "modulator", [\outbus, 62, \freq, freq, \modPartial, 0.729, \index, 1.76]); // 左と右のチャンネルのためのキャリア Synth.tail(s, "carrier", [\inbus, 60, \outbus, 100, \freq, freq, \carPartial, 1]); Synth.tail(s, "carrier", [\inbus, 62, \outbus, 100, \freq, freq+1, \carPartial, 2.91]); Synth.tail(s, "preDelay", [\inbus, 100]); Synth.tail(s, "combs"); Synth.tail(s, "allpass"); Synth.tail(s, "theMixer", [\gain, 0.2]); )

////////////////////////////////////////////////////////////////////////////////////////////////////

go to 15