tweak

Classes/StageLimiter.sc

@@ -0,0 +1,39 @@
+//Batuhan Bozkurt 2009
+StageLimiter
+{
+	classvar lmSynth, lmFunc, activeSynth;
+	
+	*activate
+	{ |numChannels = 2|
+		fork
+		{
+			lmFunc = 
+			{ 
+				{ 
+					activeSynth = 
+						Synth(\stageLimiter,
+							target: RootNode(Server.default), 
+							addAction: \addToTail
+						);
+				}.defer(0.01) 
+			};
+			lmSynth = SynthDef(\stageLimiter, 
+			{
+				var input = In.ar(0, numChannels);
+				input = Select.ar(CheckBadValues.ar(input, 0, 0), [input, DC.ar(0), DC.ar(0), input]);
+				ReplaceOut.ar(0, Limiter.ar(input)) ;
+			}).add;
+			Server.default.sync;
+			lmFunc.value;
+			CmdPeriod.add(lmFunc);
+			"StageLimiter active".postln;
+		}
+	}
+	
+	*deactivate
+	{
+		activeSynth.free;
+		CmdPeriod.remove(lmFunc);
+		"StageLimiter inactive...".postln;
+	}
+}