FreqShift | SuperCollider 3.14.0 Help

Description

FreqShift implements single sideband amplitude modulation, also known as frequency shifting, but not to be confused with pitch shifting. Frequency shifting moves all the components of a signal by a fixed amount but does not preserve the original harmonic relationships.

Class Methods

FreqShift.ar(in, freq: 0.0, phase: 0.0, mul: 1.0, add: 0.0)

Arguments:

in	The input signal.
freq	Amount of shift in cycles per second.
phase	Phase of the frequency shift (0..2pi).
mul
add

Inherited class methods

Instance Methods

Inherited instance methods

Examples

More Examples

send a SynthDef, run the routine then send a different SynthDef

// simple detune & pitchmod via FreqShift
(
SynthDef(\frqShift1, { |out, freq, detune = 1.5|
    var e1, left, right;
    e1 = EnvGen.ar(Env.new([0, 0.1, 0], [1, 2.3]), 1, doneAction: Done.freeSelf);
    left = SinOsc.ar(freq, 0, e1); // original tone
    left = left + FreqShift.ar(left, freq * detune); // shift and add back to original
    right = FreqShift.ar(left, SinOsc.kr(3.23, 0, 5));
    Out.ar(out, [left, right] * 0.1);
}).add;
)

// the routine
(
r = Routine({
    var table, pitch;
    table = [0, 2, 4, 5, 7, 9, 11, 12];
    inf.do {
        pitch = (48+(12*2.rand) + table.choose).midicps;
        Synth.grain(\frqShift1, [\freq, pitch]);
        3.wait;
    };
}).play;
)

// shift pulse wave in opposite directions
(
SynthDef(\frqShift1, { |out, freq, detune = 0.15|
    var e1, snd, left, right;
    e1 = EnvGen.ar(Env.new([0, 1, 0], [0.02, 3.2]), 1, doneAction: Done.freeSelf);
    right = FreqShift.ar(snd, XLine.kr(0.1, 200, 2));
    snd = Pulse.ar(freq, SinOsc.kr(2.3).range(0.2, 0.8), e1); // original tone
    left = FreqShift.ar(snd, XLine.kr(-0.1, -200, 2)); // shift and add back to original
    Out.ar(out, [left, right] * 0.1);
}).add
)

// FreqShift >> feedback >>> FreqShiftc
(
SynthDef("frqShift1", { |out, freq|
    var e1, snd, snd2, in;
    in = FreqShift.ar(InFeedback.ar(0, 1) * 3.2, XLine.ar(0.01, freq * 1.5, 1)); // shift the feedback
    e1 = Env.new([0, 0.1, 0], [0.02, 2.98]);
    snd = SinOsc.ar(freq, 0, EnvGen.ar(e1, 1, doneAction: Done.freeSelf));
    snd2 = FreqShift.ar(snd+in, SinOsc.ar(4.24, 0.5, 3), 0, 0.5); // subtle modulating shift
    OffsetOut.ar(0, Limiter.ar(snd2 + snd * 0.5, 1, 0.005) ! 2);
}).add;
)

// ssllooww columbia tuned shift detune
(
r.stop; // stop old routine
Buffer.read(s, ExampleFiles.child, bufnum: 99);

SynthDef(\frqShift1, { |out, freq, bufnum|
    var e1, snd, left, right;
    e1 = Env.new([0, 1, 0], [3, 1], -4);
    snd = PlayBuf.ar(1, bufnum, BufRateScale.kr(bufnum) * 0.01, loop: 1);
    // subtle shift of the output
    left = FreqShift.ar(snd, freq * 2, 0, EnvGen.ar(e1, 1, doneAction: Done.freeSelf));
    right = FreqShift.ar(snd, freq * 3, 0, EnvGen.ar(e1, 1, doneAction: Done.freeSelf));
    Out.ar(out, [left, right] * 3);
}).add;
)

// the routine
(
r = Routine({
    var table, pitch;
    table = [0, 2, 4, 5, 7, 9, 11, 12];
    inf.do{
        pitch = (48+(12*2.rand) + table.choose).midicps;
        s.sendMsg(\s_new, \frqShift1, -1, 1, 1, \freq, pitch, \bufnum, 99);
        3.wait;
        };
    }).play
)

helpfile source: /usr/local/share/SuperCollider/HelpSource/Classes/FreqShift.schelp
link::Classes/FreqShift::

FreqShift : UGen : AbstractFunction : Object