tweaking ammann synth

live_utilities/supercollider/live_utilities.scd

@@ -71,7 +71,8 @@ s.waitForBoot({
 		b = 6.collect({var buf = Buffer.alloc(s, 512, 1); buf.sine1(1.0 / 5.collect({arg i; pow(i + 1, 5.0.rand + 1)}), true, true, true)});
 
 		SynthDef(\ammann, {arg freq, amp, del = 5, gate = 1, sustain = 1, buf = 0, out = 0;
-			Out.ar(out, Osc.ar(Select.kr(buf, b), freq, 0, amp) * EnvGen.kr(Env.adsr(3, sustain - 4, 1, 1), gate, 1, 0, 1, doneAction: 2));
+			//Out.ar(out, Osc.ar(Select.kr(buf, b), freq, 0, amp) * EnvGen.kr(Env.adsr(3, sustain - 4, 1, 1), gate, 1, 0, 1, doneAction: 2));
+			Out.ar(out, Osc.ar(Select.kr(buf, b), freq, 0, amp) *EnvGen.kr(Env.adsr(0.25, sustain, 0.85, 0.2), gate, 1, 0, 1, doneAction: 2));
 		}).add;
 	};
 
@@ -194,7 +195,7 @@ s.waitForBoot({
 				\out, hdpBusArray[i],
 				//\freq, Pseq((55 * r.slice(nil, 2).flatten).cpsmidi.round(0.5).midicps),
 				//\freq, Pseq((55 * r.slice(nil, 2).flatten)) / 8 * pow(2, i),
-				\freq, Pseq(r.slice(nil, 2).flatten.collect({arg harm; (55 * (32/27) * harm) / 4 * pow(2, i) * pow(2, if(harm < 8, {0}, {0}))})),
+				\freq, Pseq(r.slice(nil, 2).flatten.collect({arg harm; (55 * (32/27) * harm) / 8 * pow(2, i) * pow(2, if(harm < 8, {0}, {0}))})),
 				\dur, Pseq(r.slice(nil, 0).flat),
 
 				//this is a bit tricky it makes it so that each note goes to the next