diff --git a/2020-12-02_reverbfeedback.scd b/2020-12-02_reverbfeedback.scd new file mode 100644 index 0000000..2375e44 --- /dev/null +++ b/2020-12-02_reverbfeedback.scd @@ -0,0 +1,115 @@ +Ndef(\aix).fadeTime = 10 +( +Ndef(\aix, { + var snd, revt; + snd = Pulse.ar(freq: LFNoise0.ar([1/2,1/3]).exprange(50,5000)); + snd = snd + RLPF.ar(in: WhiteNoise.ar, + freq: LFNoise0.ar(1/3).exprange(1000,10000), + rq: LFNoise0.ar(1).range(0.01,1)); + snd = snd * LFPulse.ar( + freq: LFNoise0.ar(1).exprange(0.1,8), + width: LFNoise0.ar(1).range(0.1,0.001), + // this creates very loud spikes - max 1000 above 1: + mul: LFNoise1.ar(3).exprange(0.01,1000)); + snd = HPF.ar(snd, 10); + + // reverb time - various optons: + revt = LFNoise0.ar(1/2).exprange(0.0001, 0.1); + //revt = XLine.ar(1, 0.0001,30); + //revt = LFTri.ar(1/10, 1).range(0.01, 0.0001); + //revt = 0.000001; + + snd = Greyhole.ar(snd, revt, 0.5, revt); + snd = Limiter.ar(snd, 0.9); + snd = snd * 1; + +}).play) + + + + + + + + + + + +// THANKS TO/FORKED FROM: +// https://sccode.org/1-5ei +///////////////////////////////////////////////////////////////////////////////////////////// +// what can it sound like? see: https://www.youtube.com/watch?v=dRmY3tEwZyE +// the youtube version has been sent through an additional reverb pedal, but +// you don't need the pedal to get something that sounds interesting + +( +s.options.memSize_(16384*10); +s.reboot; +s.waitForBoot({ + + Ndef(\bits, { + var t = PulseCount.ar(Impulse.ar(8e3)); + var u = PulseCount.ar(Impulse.ar(7009)); + var sig = HPF.ar( + ( + ((t * 15) & (t >> 5)) | + ((t * 5) & (t >> [3, 4])) | + ((t * 2) & (t >> 9)) | + ((t * 8) & (t >> 11)) | + (((t*t) & t) | (t >> 3)) + - 3 % 256 + ) / 127-1 * 3 + , 20 + ) * 0.1; + var sig2 = LPF.ar(HPF.ar(gcd(t*u, u+t), WhiteNoise.ar()*2000 + 1000), 20); + sig2 = sig2*sig; + sig = 0.3*Splay.ar(Limiter.ar(Greyhole.ar(sig + sig2, sig, 0.5, sig), 0.5).flatten); + }).play; +}); +) +///////////////////////////////////////////////////////////////////////////////////////////// + + +// REWORK/ANALYSIS: + +( +Ndef(\bits, +{ + var t, u, sig, sig2, sum; + + t = PulseCount.ar(Impulse.ar(8e3)); + u = PulseCount.ar(Impulse.ar(7009)); + + sig = ( // bytebeat + ((t * 15) & (t >> 5)) | + ((t * 5) & (t >> [3, 4])) | + ((t * 2) & (t >> 9)) | + ((t * 8) & (t >> 11)) | + (((t*t) & t) | (t >> 3)) + - 3 % 256 + ) / 127-1 * 3 ; + + sig = HPF.ar(sig, 20) * 0.1 ; + + sig2 = gcd(t*u, u+t); + sig2 = HPF.ar(sig2, WhiteNoise.ar() * 2000 + 1000); + sig2 = LPF.ar(sig2, 20); + sig2 = sig2 * sig; + + sum = Greyhole.ar(in: sig2, delayTime: sig, damp: 0.5, size: sig); + sum = Limiter.ar(sum, 1); + sum = sum.softclip; + sum = sum * 0.5; + //sig2 * 0.0001; + sig; + +} +) // Ndef +//.play; +//.plot(2,minval:-10, maxval:10); +.plot(7); +) + +///////////////////////////////////////////////////////////////////////////////////// + +