Re: [Sc-devel] Call for Code Contributions !!!

[Josh Parmenter <josh@xxxxxxxxxxxxxxxxx>]

Here is my record scratcher:

SynthDef(\scratch, {arg gate = 1, buffer;
	var buf, speed, env;
	env = EnvGen.kr(
		Env([0,1,0], [0.1, 0.1], \sin, 1),
		gate, doneAction: 20);
	speed = MouseX.kr(-10, 10);
	speed = speed - DelayN.kr(speed, 0.1, 0.1);
	speed = MouseButton.kr(1, 0, 0.3) + speed ;
	buf = PlayBuf.ar(1, buffer, speed * BufRateScale.kr(buffer), loop: 1);
	Out.ar(0, (buf * env).dup );
	}).load(s);
	
s.boot;

// path to a mono soundfile here
a = Buffer.read(s, "/Users/joshp/SND/mozart.aiff");

b = Synth(\scratch, [\buffer, a]);

// move mouse to scrub the record.
// press mouse button to 'stop the record', you can scrub while it is  
stopped.

// stop the synth
b.set(\gate, 0);
// free the Buffer
a.free;


Josh

On Dec 1, 2007, at 9:57 PM, James McCartney wrote:

> That was fun!
>
> On 11/29/07, jyates@xxxxxxxxxx <jyates@xxxxxxxxxx> wrote:
> > Hi Thor,
> >
> > Here is an exercise I did years ago when I was first learning the  
> > client
> > - server paradigm of SC3. It is just a mock-up of an old Kraftwerk  
> > song
> > that helped me learn how to assemble most of the things required  
> > for a
> > complete track. I was still thinking pretty much in the traditional
> > MIDI production style at the time, but this is how I managed to
> > translate what I knew into SC. Maybe it will be helpful to beginners
> > also coming from that background.
>
>
> --
> --- james mccartney
> _______________________________________________
> Sc-devel mailing list
> Sc-devel@xxxxxxxxxxxxxxx
> http://www.create.ucsb.edu/mailman/listinfo/sc-devel

******************************************
/* Joshua D. Parmenter
http://www.realizedsound.net/josh/

“Every composer – at all times and in all cases – gives his own  
interpretation of how modern society is structured: whether actively  
or passively, consciously or unconsciously, he makes choices in this  
regard. He may be conservative or he may subject himself to continual  
renewal; or he may strive for a revolutionary, historical or social  
palingenesis." - Luigi Nono
*/