adding reverb feedback kinda thing

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); 
+)
+
+/////////////////////////////////////////////////////////////////////////////////////
+
+