Update voltage.scd
This commit is contained in:
parent
ff375793e6
commit
61d2d69253
52
voltage.scd
52
voltage.scd
|
@ -1,22 +1,36 @@
|
||||||
(
|
(
|
||||||
SynthDef(\pitch, { | out, n, channel, stepsPerOctave = 12 |
|
|
||||||
n = n + (stepsPerOctave / 12);
|
|
||||||
n = (n + (n / stepsPerOctave) * (1 / (stepsPerOctave + 1)) / 10);
|
|
||||||
OffsetOut.ar(channel, DC.ar(n))
|
|
||||||
}).add
|
|
||||||
);
|
|
||||||
|
|
||||||
(
|
(
|
||||||
SynthDef(\voltage, { | out, channel, rate |
|
SynthDef (\pitch, { | out, n, channel, stepsPerOctave = 12, rate = 1, delta, begin, end, portamento = 0, accelerate = 0 |
|
||||||
rate = rate * 5;
|
var slew, env, phase;
|
||||||
OffsetOut.ar(channel, DC.ar(rate));
|
n = n + (stepsPerOctave / 12);
|
||||||
}).add
|
n = (n + (n / stepsPerOctave) * (1 / (stepsPerOctave + 1)) / 10);
|
||||||
);
|
slew = (portamento * accelerate);
|
||||||
|
slew = (slew + (slew / stepsPerOctave) * (1 / (stepsPerOctave + 1)) / 10);
|
||||||
|
env = Env ([n, n + slew], [delta / rate]);
|
||||||
|
phase = Line.ar (begin, end, delta / rate);
|
||||||
|
OffsetOut.ar (channel, IEnvGen.ar (env, phase));
|
||||||
|
}).add
|
||||||
|
);
|
||||||
|
|
||||||
(
|
(
|
||||||
SynthDef(\adsr, { | out, channel, attack = 0.1, decay = 0.5, sustain = 0.5, release = 0.5, begin, end |
|
SynthDef (\voltage, { | out, channel, n, rate = 1, delta, begin, end, portamento = 0, accelerate = 0 |
|
||||||
var env = Env.adsr(attack, decay, sustain, release);
|
var slew, env, phase;
|
||||||
var phase = Line.ar(begin, end, sustain);
|
n = n * 5;
|
||||||
OffsetOut.ar(channel, IEnvGen.ar(env, phase));
|
slew = (portamento * accelerate);
|
||||||
}).add
|
env = Env ([n, n + slew], [delta / rate]);
|
||||||
);
|
phase = Line.ar (begin, end, delta / rate);
|
||||||
|
OffsetOut.ar (channel, IEnvGen.ar (env, phase));
|
||||||
|
}).add
|
||||||
|
);
|
||||||
|
|
||||||
|
(
|
||||||
|
SynthDef (\adsr, { | out, channel, attack = 0.1, decay = 0.5, sustain = 0.5, release = 0.5, begin, end |
|
||||||
|
var env, phase;
|
||||||
|
env = Env.adsr (attack, decay, sustain, release);
|
||||||
|
phase = Line.ar (begin, end, sustain);
|
||||||
|
OffsetOut.ar (channel, IEnvGen.ar (env, phase));
|
||||||
|
}).add
|
||||||
|
);
|
||||||
|
|
||||||
|
)
|
||||||
|
|
Loading…
Reference in New Issue