© 2007 LFSaw

Using Geshi for sc code markup

New here: Geshi sc Markup:

p = ProxySpace.push(s.boot);
 
(
SynthDef(\autoTweety,{
	|freq= 400, dFreq = 200, out = 0 , amp = 0.1, pan = 0|
 
	var sum, trig, dur;
	
	trig = Lag.kr(Dust.kr(MouseX.kr(0, 30)) > 0, 0.1);
	dur = MouseY.kr(1.0, 2);
	
	sum = SinOsc.ar(
		((dFreq) * EnvGen.kr(
			Env.perc(0.99,0.01), 
			trig, 1, 0, dur, doneAction: 0
		)) + freq,
		0,
		EnvGen.kr(
			Env.perc(0.01, 0.99), 
			trig, 
			1, 
			0, 
			dur, 
			doneAction: 0
		)
	);
	Out.ar(out, Pan2.ar(sum, pan, amp));
}).send(s)
)
 
~autoTweety = \autoTweety;
~autoTweety.play;
 
~trig.play
~trig = {Saw.ar(400)*(-1)}
~trig.clear
~autoTweety.stop;
~autoTweety.free;
-------------

thanks Dan!

[ sourcecode and example on how to use it ]