Re: [sc-users] SC code-remix contest

[Atte André Jensen <atte.jensen@xxxxxxxxx>]

adrian vacca wrote:
> ¥ does not belong there, just take it away 8)

I don't have any ¥ anywhere. Just copy/pasted it from the mail, attached 
is my complete file...

--
peace, love & harmony
Atte

http://www.atte.dk      | quintet:      http://www.anagrammer.dk
                        | compositions: http://www.atte.dk/compositions

// =====================================================================
// SuperCollider Workspace
// =====================================================================

// =====================================================================
// SC code remixer
// =====================================================================

//prepare the server
//s = Server.local;
//s.boot;

SynthDescLib.global.read;

//prepare the synthdef -- you need the Warp Ugens in Joshua Parmenters Library installed!

SynthDef(\warp, {arg buffer = 0, bus=0;
    var out1, out2, buflength;
    buflength = BufDur.kr(buffer);
    out1 = WarpIn.ar(In.ar(bus, 1), buffer, 0.1, 1);
    out2 = WarpIn.ar(In.ar(bus+1, 1), buffer, 0.1, 1);
    Out.ar(0, [out1,out2] );
}).load(s);
 
//our bus
~audioBus = Bus.audio(s,2);

//buffer to write to and read from
~buf = Buffer.alloc(s,s.sampleRate * 60,1);

//wonderful melody -- execute before the warp synth!
(
var melody, bass, chord;

bass = Pbind(
    \dur, Pseq([3.0],inf),
    \midinote, Pseq([67,62] - 12, inf),
    \out,~audioBus.index
);

chord = Pbind(
    \amp, 0.05,
    \dur, Pseq([ 1.0,2.0],inf),
    \midinote, Pseq([\,[59,62,66],\, [57,61,66]] , inf),
    \out,~audioBus.index
);

melody = Pbind(
    \dur, Pseq([  1, 1, 1, 1, 1, 1, 1,1 ,1, 3, 12],inf),
    \midinote, Pseq([\,66,69,67,66,61,59,61,62,57,54] + 12, inf),
    \out,~audioBus.index
);

Ptpar([0,bass, 0,chord, 0,melody]).play;
)
 
//finally, 9SatStretch
h = Synth(\warp,[\buffer,~buf.bufnum,\bus,~audioBus.index],addAction: \addToTail);