Stopper, a "tape loop" | Patchstorage

Stopper, a “tape loop”

accepts audio input; records/plays audio on midi input; holds recorded data when audio input drops; hard-coded values being tuned still.

(
var a,opt,buffer,scale;
var bufferArray,bufferArray4,bufferArray5,bufferArray6,playBuffers,playBuffers2,playBuffers3,playBuffers4,playBuffers5,playBuffers6,rates,rates2;
var buffer_size;

Server.supernova;
opt = ServerOptions.new;
opt.memSize=8388607;
opt.numOutputBusChannels = 2;
opt.numInputBusChannels = 2;
opt.threads=12;

a = Server.new("spare", NetAddr("127.0.0.1",57118), opt);
a.boot(true, true);
a.makeGui;

Server.default = a;

buffer_size=4;

a.doWhenBooted({
  var accompa, buffers, buffer_length, multiplier, notes, on, off, on_keyboard, off_keyboard, g;
  var num_notes,delay;
  var x,y,z;

var inPorts = 2;
  var outPorts = 2;
  MIDIClient.init(inPorts,outPorts);    // explicitly intialize the client
  inPorts.do({ arg i;
      MIDIIn.connect(i, MIDIClient.sources.at(i));
  });

m = MIDIOut(0);
  n = MIDIOut(1);

b = Buffer.alloc(s, 256);
  c = Buffer.alloc(s, 256);
  e = Buffer.alloc(s, 512);
  f = Buffer.alloc(s, 512);
  num_notes=16;
  delay=0.2;

bufferArray = Array.newClear(buffer_size);
  playBuffers = Array.newClear(buffer_size);
  bufferArray4 = Array.newClear(buffer_size);
  playBuffers4 = Array.newClear(buffer_size);

rates = Array.newClear(buffer_size);
  rates2 = Array.newClear(buffer_size);

multiplier = 36; // 12

bufferArray.do({ | item, i |
    buffer_length = 96000*i*multiplier;
    bufferArray[i] = Buffer.alloc( a, buffer_length, 2);

"created empty buffer: ".post;
        i.postln;
  });

bufferArray4.do({ | item, i |
    buffer_length = 96000*i*multiplier/2;
    bufferArray4[i] = Buffer.alloc( a, buffer_length, 2);

"created empty buffer4: ".post;
        i.postln;
  });

SynthDef("playplay",
  {
    | freq = #[440, 450, 460], out = 0, gate = 0, amp = 0, num = 0 |
    var my_freq,playBuffer,recbuf;

playBuffers.do({ | item, i |
        rates[i] = 1;
        playBuffers[i] = MoogFF.ar(PlayBuf.ar(2, bufferArray[i], rates[i], 1, 0, 1),freq: freq*i*100) * (1/buffer_size) ;
        "playing buffer: ".post;
        i.postln;
    });

Out.ar(out, Pan2.ar(
        playBuffers,
        Array.fill(buffer_size,{1.0.rand2})
      )
    * amp
	  * EnvGen.kr(Env.adsr(0.02, 0.4, 0.5, 1, 2, \welch), gate)
    ) ! 2;
  }

).store;

SynthDef("shuffle3",
  {
    | freq = #[440, 450, 460], out = 0, gate = 0, amp = 0, num = 0 |
    var freqA,hasFreqA,freqB,hasFreqB,playBuffer,recbuf,rate;
    var onset, chain;
    var rec_vol;
    chain=FFT(b,SoundIn.ar(0));
    onset = Onsets.kr(chain, 0.6, \rcomplex);

bufferArray4.do({ | item, i |
        RecordBuf.ar(
          [
              PitchShift.ar(SoundIn.ar(0), 0.12,1,0.12,0.12),
              PitchShift.ar(SoundIn.ar(1), 0.12,1,0.12,0.12),
          ]
          ,
          Select.kr(i,bufferArray4),
          0,1,(amp+0.3)*0.7,
          EnvGen.kr(Env.adsr(0.02, 0.2, 0.1, 1, 1, \welch), onset),
          1,1,0
        );
    });

playBuffers4.do({ | item, i |
        playBuffers4[i] =
          PlayBuf.ar(
              2,
              bufferArray4[i],
              BufRateScale.kr(bufferArray4[i]),
              1, 0, 1
          )
        * (1/buffer_size) ;

"playing buffer4: ".post;
        i.postln;
    });

Out.ar(out, Pan2.ar(
        playBuffers4,
        Array.fill(buffer_size,{1.0.rand2})
      )
      * amp
	    * EnvGen.kr(Env.adsr(0.02, 0.4, 0.5, 1, 2, \welch), gate)
    ) ! 2;

}

).store;

SynthDef("recorder",
  {
    | freq = #[440, 450, 460], out = 0, gate = 0, amp = 0, num = 0|
    var onset, chain;
    var rec_vol;
    chain=FFT(b,SoundIn.ar(0));
    onset = Onsets.kr(chain, 0.6, \rcomplex);
    rec_vol = MouseY.kr(0, 0.95, warp: \linear);

bufferArray.do({ | item, i |
        RecordBuf.ar(
          [
            SoundIn.ar(0),
            SoundIn.ar(1),
          ]
          ,
          Select.kr(i,bufferArray),
          0,1,(amp+0.3)*rec_vol,
          EnvGen.kr(Env.adsr(0.02, 0.2, 0.1, 1, 1, \welch), onset),
          1,1,0
        );
    });
  }

).store;

g = ParGroup.new(a);
  g.register;

buffers = Array.newClear(2);
  notes = Array.newClear(2);
  accompa = Array.newClear(7);

5.wait;
  notes[1] = Synth.new("recorder",
    [
      \freq, 1.midicps,
      \out,0,
      \num,0,
      \amp,0
  ],g);
  notes[1].run();

buffers[1] = Synth.new("playplay",
    [
      \freq, 1.midicps,
      \out,0,
      \num,0,
      \amp,0
  ],g);
  buffers[1].run();

buffers[0] = Synth.new("playplay",
    [
      \freq, 1.midicps,
      \out,0,
      \num,0,
      \amp,0
  ],g);
  buffers[0].run();

accompa[2] = Synth.new("shuffle3",
    [
      \freq, 1.midicps,
      \out,0,
      \num,0,
      \amp,0
  ],g);
  accompa[2].run();

v = MIDIFunc.cc({|value, num, chan, src|
    if( value < bufferArray.size ,{
      h = fork{
        1.wait;
        bufferArray[value].free;
        buffer_length = 96000*value*multiplier;
        bufferArray[value] = Buffer.alloc( a, buffer_length, 2);
        "recreating buffer: ".post;
        value.postln;
      };
      j = fork{
        3.wait;
        bufferArray4[value].free;
        buffer_length = 96000*value*multiplier/2;
        bufferArray4[value] = Buffer.alloc( a, buffer_length, 2);
        "recreating buffer4: ".post;
        value.postln;
      };

},{
        "doing nothing".postln;
    });

num.postln;value.postln;

},8);

on = MIDIFunc.noteOn(
    {
      |velocity, num, chan, src|

"src:".post;
      src.postln;

//velocity=96;

notes[1].set(
        \freq, num.midicps,
        \gate, 1,
        \num, num,
        \amp, velocity * 0.00315
      );

buffers[1].set(
        \freq, num.midicps,
        \gate, 1,
        \num, num,
        \amp, velocity * 0.00315
      );

buffers[0].set(
        \freq, num.midicps,
        \gate, 1,
        \num, num,
        \amp, velocity * 0.00315
      );

accompa[2].set(
        \freq, num.midicps,
        \gate, 1,
        \num, num,
        \amp, velocity * 0.00315
      );

"freq:".post;
      num.midicps.postln;
    }
  );

off = MIDIFunc.noteOff(
    {
      |velocity, num, chan, src|

notes[1].release(1);
      buffers[1].release(1);
      buffers[0].release(1);
      accompa[2].release(1);
      "un-freq all | ".post;
      num.midicps.postln;

}
  );
});
)

One comments on “Stopper, a “tape loop””

Sacco_Belmonte on May 1, 2020 said:

Seems like a cool project :)

For some reason the server crashes.

You must be logged in to post a comment.

schmooster

132 PM

State: Work In Progress
Platform: SuperCollider
Category: Sampler
Revision: 1.0
License: Creative Commons Zero v1.0 Universal
Modified: 4 years ago
Views: 139

Likes: 2

Chat

Stopper, a “tape loop”

One comments on “Stopper, a “tape loop””

Leave a Reply