歪んだ低音金属パーカッション

— 歪んだ低音金属パーカッション
SynthDef(\metalPerc, { |out=0, freq=220, amp=0.6, pan=0, atk=0.001, rel=1.0,modRatio=2.7, modIndex=3.5, drive=3.0, cutoff=4000, rq=0.3, room=0.4|var mod, car, ring, noise, sig, env, filt, dist;env = EnvGen.kr(Env.perc(atk, rel, curve: -6), doneAction:2);mod = SinOsc.ar(freq * modRatio, 0, freq * modIndex);car = SinOsc.ar(freq + mod);ring = car * SinOsc.ar(freq * 1.5, 0, 0.5);noise = HPF.ar(WhiteNoise.ar(0.3), 2000) * EnvGen.kr(Env.perc(0.001, 0.2));sig = (ring + noise) * env;filt = RLPF.ar(sig, cutoff, rq);dist = tanh(filt * drive);sig = FreeVerb.ar(dist, mix: room, room: room, damp: 0.5);Out.ar(out, Pan2.ar(sig * amp, pan));}).add;