MM - Tron's MCP Quote. | Patchstorage

SuperCollider

MM – Tron’s MCP Quote.

This one uses FFT for vocoding speech voice.

I made it as close as possible to one of the famous quotes from the MCP.

You’ll need this sample:

https://drive.google.com/open?id=1D_n2vBEexGzd1cW-EcwZ5JD7Pn3bSNAf

// TRON's MCP - 2020 Matias monteagudo

//Here you can set your interface options.

(
Server.local.options.device = "ASIO : ASIO PreSonus FireStudio";
Server.local.options.sampleRate=48000;
Server.local.options.blockSize=128;
)

//First load the buffers.
(
b = Buffer.alloc(s,2048,2);
c = Buffer.alloc(s,2048,2);
d=Buffer.readChannel(s,"C:/Audio/SC/Mat SC/MCP_Quote.wav",channels:1);
)

//Just evaluate this chunk and enjoy. (Evaluate twice if it fails to use the buffers)

(

((
SynthDef(\FreeVerb2x2, { |out, mix = 0.3, room = 0.15, damp = 0, amp = 1.0|
    var signal;

signal = In.ar(out, 2);

ReplaceOut.ar(out,
        FreeVerb2.ar( // FreeVerb2 - true stereo UGen
            signal[0], // Left channel
            signal[1], // Right Channel
            mix, room, damp, amp
        )
    );

}).add;
);

z = Synth(\FreeVerb2x2, [\outbus, 0,\room,0.2], addAction:\addToTail);
);

(
SynthDef(\vokko, {
	| amp=0.6|
	var modc, incar, mixcar, car, inmod, mod, chain, sig;
	modc = SinOsc.ar(1,0,8);
	incar = LFSaw.ar(80+modc, 0, amp)+LFSaw.ar(70+modc, 0, amp)+LFSaw.ar(50+modc, 0, amp)+GrayNoise.ar(amp+1);
	inmod = PlayBuf.ar(1, d,0.8, loop: 1);
	car = FFT(b, incar*0.1);
	mod = FFT(c, HPF.ar(inmod*0.1,60,1));
	chain = PV_MagMul(car, mod);
	sig=IFFT(chain);
	Out.ar(0, sig!2)
}).add;
);

Synth.new(\vokko)
)

You must be logged in to post a comment.

sacco_belmonte

585 PM

Platform: SuperCollider
Category: Sound
Revision: 1.0.1
License: GNU General Public License family
Modified: 4 years ago
Views: 407

Likes: 0

Chat

MM – Tron’s MCP Quote.

Leave a Reply