FMベルシンセ

SynthDef(\fmbell, { |out=0, freq=440, amp=0.5, pan=0, atk=0.01, rel=2.0, modRatio=2.01, modIndex=3.0, cutoff=4000|var mod, car, env, sig;env = EnvGen.kr(Env.perc(atk, rel, 1, -4), doneAction:2);mod = SinOsc.ar(freq * modRatio, 0, freq * modIndex);car = SinOsc.ar(freq + mod);sig = LPF.ar(car, cutoff);sig = sig * env * amp;sig = FreeVerb.ar(sig, mix:0.4, room:0.6, damp:0.4);Out.ar(out, Pan2.ar(sig, pan));}).add;