ベースSynthDef

bass.scd

SynthDef("Bass", {

	arg amp=0.7, freq=0, gate=1;
	var out,env,sweep;

	sweep = Impulse.kr(4).round;
	out = SinOsc.ar(freq,(Sweep.ar(sweep, 2pi * [52.8, 200]) + (pi/6)).wrap(-pi, pi), [1, 0.1]).mean.tanh;
	env = EnvGen.kr(
        Env([0.1, 0.5, 0.4, 0], [0, 0.2, 0.1], -5),
        gate,
        doneAction:2);

	out = out * env;
	out = out.softclip * amp;
	out = Pan2.ar(out);
	Out.ar(0, out);

}).send(s);