slash
/
tidal-voltage
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update voltage.scd

This commit is contained in:
Omar Mashaal 2020-08-09 22:29:44 +10:00 committed by GitHub
parent ff375793e6
commit 61d2d69253
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 33 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
voltage.scd
View File

@ -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 |
rate = rate * 5;
OffsetOut.ar(channel, DC.ar(rate));
}).add
);
(
SynthDef (\pitch, { | out, n, channel, stepsPerOctave = 12, rate = 1, delta, begin, end, portamento = 0, accelerate = 0 |
var slew, env, phase;
n = n + (stepsPerOctave / 12);
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 |
var env = Env.adsr(attack, decay, sustain, release);
var phase = Line.ar(begin, end, sustain);
OffsetOut.ar(channel, IEnvGen.ar(env, phase));
}).add
);
(
SynthDef (\voltage, { | out, channel, n, rate = 1, delta, begin, end, portamento = 0, accelerate = 0 |
var slew, env, phase;
n = n * 5;
slew = (portamento * accelerate);
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
);
)