You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

35 lines
872 B

s.options.memSize = 2.pow(20);
s.boot;
~inBus = Bus.audio(s, 1);
~out = { Out.ar(~inBus, SoundIn.ar(0)) }.play;
~freezeDict = BmDspAlgs.getDict("spectral/fft_freeze.scd");
~freezeDict.makeBufferProcessingNdef(\freezeOnly);
Ndef(\freezeOnly).set(\in, ~inBus.index);
Ndef(\freezeOnly).reshaping = \elastic;
Ndef(\freezeOnly).play;
Ndef(\freezeOnly).stop;
Ndef(\freezeOnly).set(\freezeGate, 0);
Ndef(\freezeOnly).set(\freezeGate, 1);
Ndef(\freezeOnly).put(90, \filter -> {|in|
[in[0], in[1] + SinOsc.kr(0.1).range(0.9, 1.0)] * 0.5;
});
Ndef(\freezeOnly).set(\phaseJitter, 10);
Ndef(\freezeOnly).ar(2);
~out.free
Ndef(\freezeOnly).set(\pan, 0);
~freezeDict.makeBufferProcessingNdef(\freezeOnly2);
Ndef(\freezeOnly2).ar(2);
Ndef(\freezeOnly2).set(\in, ~inBus.index);
Ndef(\freezeOnly2).play;
Ndef(\freezeOnly2).set(\freezeGate, 1);
Ndef(\freezeOnly2).set(\amp, 0.2)