diff --git a/live_utilities/supercollider/live_utilities.scd b/live_utilities/supercollider/live_utilities.scd index 282ec6f..6298d98 100644 --- a/live_utilities/supercollider/live_utilities.scd +++ b/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