// title: bytebeat homage
// author: blueprint
// description:
// // these are variations on http://sccode.org/1-5ei#c1021
// // my variations are based on bytebeat stuff I did for the midiboy, arduino code
// // here https://github.com/poetaster/bytebeats/blob/master/bytebeats.ino
// // that thing draws pictures, too.
// code:
// these are variations on http://sccode.org/1-5ei#c1021
// my variations are based on bytebeat stuff I did for the midiboy, arduino code
// here https://github.com/poetaster/bytebeats/blob/master/bytebeats.ino
// that thing draws pictures, too.

//  t / 13 >> (1 + ((t >> 12) & 3)) | i / 2 >> 2 & (t / 6) >> 7 | t & 31 * t * (i >> 8)
// (t / 3 >> (t % 40 + 5) | t / (24 + t & 3) >> (t % (15 - ((t >> 15) % 8) * 6) + 5)) / 8

// one more noise than ....
(
	Ndef(\bits1, {
		var t = PulseCount.ar(Impulse.ar(8e3));
		var u = PulseCount.ar(Impulse.ar(7009));
		var sig = HPF.ar(
			(
			    ((t >> 12) | (t >> 8) & (63 & t) >> 4)
				- 3 % 256
			) / - 3 % 512
			, 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;
)

// two, pingy but more than the original.
(
	Ndef(\bits2, {
		var t = PulseCount.ar(Impulse.ar(8e3));
		var u = PulseCount.ar(Impulse.ar(7009));
		var sig = HPF.ar(
			(
			(t / 3 >> (t % 40 + 5)) | ((t / (24 + t & 3) >> (t % (15 - ((t >> 15) % 8) * 6) + 5)) / 8)
				- 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.scope;
)
// three is much like 2 more high frequency reflections.
(
	Ndef(\bits3, {
		var t = PulseCount.ar(Impulse.ar(8e3));
		var u = PulseCount.ar(Impulse.ar(7009));
		var sig = HPF.ar(
			(
			    ( t / 13 >> (1 + ((t >> 12) & 3))) |
			    ( t / 2 >> 2 & (t / 6) >> 7 ) |
			    (t & 31 * t * (t >> 8))
				- 3 % 128
			) / 64-1 * 3
			, 20
		) * 0.1;
		var sig2 = LPF.ar( HPF.ar(gcd(t*u, u+t), WhiteNoise.ar()*2200 + 1000), 20);
		sig2 = sig2*sig;
		sig = 0.3* Splay.ar( Limiter.ar( Greyhole.ar(sig + sig2, sig, 0.5, sig), 0.5).flatten);
	}).play.scope;
)

// four is slow, minimal. very.
(
	Ndef(\bits4, {
		var t = PulseCount.ar(Impulse.ar(8e3));
		var u = PulseCount.ar(Impulse.ar(7009));
		var sig = HPF.ar(
			(
			    (t ** t >> 8) | (t << 3 & 56 ** t)
				- 3 % 32
			) / -3 % 16
			, 20
		) * 0.1;
		var sig2 = LPF.ar( HPF.ar(gcd(t*u, u+t), WhiteNoise.ar()*2200 + 1000), 20);
		sig2 = sig2*sig;
		sig = 0.3* Splay.ar( Limiter.ar( Greyhole.ar(sig + sig2, sig, 0.5, sig), 0.5).flatten);
	}).play.scope;
)

(
	Ndef(\bits5, {
		var t = PulseCount.ar(Impulse.ar(7099));
		var u = PulseCount.ar(Impulse.ar(7009));
		var sig = HPF.ar(
			(
			    t * ((t >> 12 | t >> 8) & 63 & t >> 4)
			    - 3 % 32
			) / -3 % 16
			, 25
		) * 0.1;
		var sig2 = LPF.ar( HPF.ar(gcd(t*u, u+t), WhiteNoise.ar()*2000 + 1001), 20);
		sig2 = sig2*sig;
		sig = 0.3* Splay.ar( Limiter.ar( Greyhole.ar(sig + sig2, sig, 0.5, sig), 0.5).flatten);
	}).play.scope;
)

// really sci fi ... astroid belt mining operation.
(
	Ndef(\bits5, {
		var t = PulseCount.ar(Impulse.ar(8e3));
		var u = PulseCount.ar(Impulse.ar(7009));
		var sig = HPF.ar(
			(
			  ( ( ( ( (t>>12) ** (t>>12) -2 ) %11 *t ) /4 | t>>13 ) & 127)
			)
			, 20
		) * 0.1;
		var sig2 = LPF.ar( HPF.ar(gcd(t*u, u+t), WhiteNoise.ar()*1900 + 800), 10);
		sig2 = sig2*sig;
		sig = 0.3* Splay.ar( Limiter.ar( Greyhole.ar(sig + sig2, sig, 0.5, sig), 0.5).flatten);
	}).play.scope;
)


// noisy swinging wings and whips.
(
	Ndef(\bits6, {
		var t = PulseCount.ar(Impulse.ar(8e3));
		var u = PulseCount.ar(Impulse.ar(7009));
		var sig = HPF.ar(
			(
			   t / 13 >> (1 + ((t >> 12) & 3)) | t / 2 >> 2 & (t / 6) >> 7 | t & 31 * t * (t >> 8)
			    - 3 % 32
			) / - 3 % 64
			, 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.scope;
)

// ping/pong cricket match.
(
	Ndef(\bits7, {
		var t = PulseCount.ar(Impulse.ar(8e3));
		var u = PulseCount.ar(Impulse.ar(7009));
		var sig = HPF.ar(
			(
			    ((t << 1) ** ((t << 1) + (t >> 7)&t >> 12)) |
			    t >> (4 - ( 1 ** 7 & (t >> 19))) |
			    t >> 7
			    - 3 % 64
			) / - 3 % 32
			, 20
		) * 0.1;
		var sig2 = LPF.ar( HPF.ar(gcd(t*u, u+t), WhiteNoise.ar()*1900 + 1000), 20);
		sig2 = sig2*sig;
		sig = 0.3* Splay.ar( Limiter.ar( Greyhole.ar(sig + sig2, sig, 0.9, sig), 0.9).flatten);
	}).play.scope;
)