mariustomato / acia-motion-music

xbox camera movement to nice music
0 stars 0 forks source link

Super Colider Möglichkeiten #6

Closed mariustomato closed 1 year ago

PeaheadTNT commented 1 year ago

Ich denke das vieles möglich ist. Ich habe schon ein kleines Ding gebastelt das denke ich fürs erste ganz gut funktionieren könnte. Vor allem wenn man fund und ampHz von außen steuert kann man gut die Töne und Puls steuern. `

s.boot;
(
SynthDef.new(\pulseTest, {
    arg ampHz=4, fund=40, maxPartial=4, width=0.5;
    var amp1, amp2, freq1, freq2, sig1, sig2;
    amp1 = LFPulse.kr(ampHz,0,0.12) * 0.75;
    amp2 = LFPulse.kr(ampHz,0.5,0.12) * 0.75;
    freq1 = LFNoise0.kr(4).exprange(fund, fund*maxPartial).round(fund);
    freq2 = LFNoise0.kr(4).exprange(fund, fund*maxPartial).round(fund);
    freq1 = freq1 * LFPulse.kr(8, add:1);
    freq2 = freq2 * LFPulse.kr(6, add:1);
    sig1 = Pulse.ar(freq1, width, amp1);
    sig2 = Pulse.ar(freq2, width, amp2);
    sig1 = FreeVerb.ar(sig1,0.7, 0.8,0.25);
    sig2 = FreeVerb.ar(sig2,0.7, 0.8,0.25);
    Out.ar(0, sig1);
    Out.ar(1, sig2);
}).add;
)

x = Synth.new(\pulseTest);

x.set(\width, 0.25);
x.set(\fund, 70);
x.set(\maxPartial, 4);
x.set(\ampHz, 1.1);

x = Synth.new(\pulseTest, [\ampHz, 3.3, \fund, 48, \maxPartial, 4, \width, 0.125])

x.free;

`