Entangled - SuperCollider



Rielaborazione di un tweet di Olofsson; What the Net Is Doing To Our Brain?;

(
    Routine.run {


  var s, synth, release;

 s = Server.default;

  SynthDef(\drone, {

            var snd, a;
      a=VarSaw;
            snd = Splay.ar(a.ar(Select.ar(GVerb.ar(a.ar((3/b=[1,3,7,13,17,37]+0.2)*8)),(c=a.ar(0.7/b))>0*13+b+48).midicps,0,c%3).tanh/7);
            Out.ar(0, snd);
        }).add;

  synth = Synth(\drone);

 10.wait;
 s.sync;
 s.record(path: "~/out.wav".standardizePath);
 30.wait;
        release.wait;
        s.stopRecording;
    };

)

Leave a Reply