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

[karlos <k.gebbert@xxxxxxxxx>]

Hi,

wonderful project for chrismas eve ;)

I put up a version of mine...

Greets, 

Karsten

// =====================================================================
// 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);

On 12/24/06, Takeko Akamatsu <tn800@xxxxxxxxxxx> wrote:

Hi, Atte 

welcome, please join us !

Takeko Akamatsu wrote:

You can modify following code in anyway (except using non-SC software). 

> I'm still way too newbie to even consider taking part in the contest. But the 

> code reminds me something I sometimes wondered looking at code: 

> Where is the instrument(s) defined in the code?

Sorry, I'm afraid I'm not sure, you mean the synthDef for Pbind?

I think it's in Event.sc (class definition of Event), 

using synthDef wichi is named " \default"

thank you,

takeko

On 2006/12/24, at 22:51, Atte André Jensen wrote:

-- 

peace, love & harmony

Atte

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

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

_______________________________________________

sc-users mailing list

sc-users@xxxxxxxxxxxxxxx

http://www.create.ucsb.edu/mailman/listinfo/sc-users

_______________________________________________
sc-users mailing list
sc-users@xxxxxxxxxxxxxxx
http://www.create.ucsb.edu/mailman/listinfo/sc-users