Add a new synth with personality

thesaw.scd

@@ -0,0 +1,37 @@
+
+(
+SynthDef.new(\thesaw, { |out, pan, freq = 40, begin, end, sustain, detune = 0.02, peak=0.7|
+	var saw, sound, env, detuneEnv;
+
+	env = IEnvGen.kr(
+		Env.adsr(0.02, 1, 0.5, 2, 1, -4),
+		Line.kr(begin, end, sustain, doneAction: Done.freeSelf)
+	);
+
+	detuneEnv = detune * EnvGen.kr(
+		Env.new([0, 0.5, 1, 0.75], [0.1,peak,2], [-2,2,-2]),
+		timeScale: sustain,
+	);
+
+	saw = 0;
+	10.do{
+		var temp = VarSaw.ar(
+			freq * {rrand(1-detuneEnv, 1+detuneEnv)}!2,
+			{Rand(0.0, 1.0)}!2,
+			0.01
+		);
+
+		saw = saw + temp;
+	};
+
+	sound = saw*0.1 * env;
+
+	OffsetOut.ar(
+		out,
+		DirtPan.ar(sound, ~dirt.numChannels, pan, env)
+	);
+}).add;
+)
+
+
+s.scope

wubs.scd

@@ -22,15 +22,4 @@ SynthDef(\ebtg, {
 	);
 }).add;
 
-)
-
-var begin, end, sustain;
-sustain = 10;
-begin = 0;
-end = 1;
-Env.new(levels: [0, 1, 0.9, 0], times: [0.1, sustain-0.2, 0.1], curve: [-6, 3]).plot
-
-Env.new(levels: [0, 1, 0], times: [1, 1]).plot
-
-
-Env.perc(0.01, 1.0).plot
+)