added synthdefs

scd/synthdefs.scd

@@ -1,7 +1,21 @@
 (
-SynthDef(\sin, { |out|
+SynthDef(\sin, { |out, freq = 440|
+	var sound;
+	sound = SinOsc.ar(freq);
+	Out.ar(out, sound)
+}).add
+);
+
+(
+SynthDef(\sinenv, { |out, sustain = 1, freq = 440, speed = 1, begin=0, end=1, pan, accelerate, offset, modfreq = 40|
+	var env, sound, rate, phase, amp;
+	amp = AmpCompA.kr(freq);
+	env = EnvGen.ar(Env.perc(0.002, sustain, 1, -1), doneAction:2);
+	phase = Line.ar(begin, end, sustain);
+	rate = speed + Sweep.kr(1, accelerate);
+	sound = SinOsc.ar(freq);
 	Out.ar(out,
-		SinOsc.ar()
+		DirtPan.ar(sound, ~dirt.numChannels, pan, env)
 	)
 }).add
 );