チャイム音風

SynthDef(\customChime, { |out, sustain=1, freq=440, amp=0.1, pan=0, decay=0.9|var sig, env, noise;env = EnvGen.ar(Env.perc(0.01, sustain * decay, amp), doneAction: 2);sig = SinOsc.ar(freq * [1, 1.01, 1.5, 2.01], mul: [0.4, 0.3, 0.2, 0.1]).sum;noise = PinkNoise.ar(0.05) * BPF.ar(WhiteNoise.ar(), freq * 2, 0.1);sig = (sig + noise) * env;sig = sig * SinOsc.ar(4, mul: 0.02, add: 1);sig = Pan2.ar(sig, pan);Out.ar(out, FreeVerb.ar(sig, mix: 0.4, room: 0.6, damp: 0.5));}).add;

タイトルとURLをコピーしました