// some variations of hijacked tweets. In Ndef-mode.

// Starting point was this one:

//{a=LFTri.ar(1);20.do{a=BAllPass.ar(a,80,1);a=((a+0.02)*LFNoise0.kr(1/2)*8).tanh;a=LeakDC.ar(a,0.995)};a*0.1!2}.play

//*by  nathaniel virgo */

// the global variable "~bohlen" is a pure bohlen_pierce scale. Used for harmonic intevalls and rythm.

// relaunche the the same line for ramdom variation in rythm and notes.

// Inreasing the coef of LeakDC can give lots of very low frequencies. Go gently for the sake of your speakers. Decreasing is unproblematic, makes it more Highpass.

// true happiness comes from multichannel expansion. For more than 2 speakers adapt "numChannels" in "Ndef(\x).play(out,numChannels)" and the "!8" in the end of the code if you have more than 8 speakers.

~bohlen=[1,27/25,25/21,9/7,7/5,75/49,5/3,9/5,49/25,15/7,7/3,63/25,25/9,3];

Ndef(\x).play(0,2);
Ndef(\x).stop(3);
Ndef(\x).fadeTime = 3;

Ndef(\x,{{a=LFTri.ar(~bohlen.choose/3,0,17); 5.do{a=BAllPass.ar(a,PinkNoise.kr(3,30*~bohlen.choose),02);a=BBandStop.ar(a,PinkNoise.kr(24,270*~bohlen.choose*[1,3,9].choose),03);a=((a*LFNoise2.ar(~bohlen.choose/3,6,1))+WhiteNoise.ar(PinkNoise.ar(0.014)*LFNoise2.ar(1,2))).tanh;a=LPF.ar(LeakDC.ar(a,0.95),10000)};a=(a/3)}!8})

Ndef(\x,{{a=LFTri.ar(~bohlen.choose/5,0,5); 2.do{a=BAllPass.ar(a,PinkNoise.kr(0.01,270*~bohlen.choose),0.02);a=BBandStop.ar(a,PinkNoise.kr(10,270*~bohlen.choose),0.001);a=((a*LFNoise0.ar(~bohlen.choose,8,5))+WhiteNoise.ar(PinkNoise.ar(0.004)*LFNoise2.ar(3))).tanh;a=LPF.ar(LeakDC.ar(a),10000)};a=(a/5)}!8});

Ndef(\x,{{a=LFTri.ar(~bohlen.choose/3); 4.do{a=BAllPass.ar(a,PinkNoise.kr(11,30*[1,3,9/7,9/5,7/3,25/9].choose),0.01);a=BAllPass.ar(a,PinkNoise.kr(23,270*[1,3,9].choose*~bohlen.choose),0.003);a=((a*LFNoise0.ar(~bohlen.choose/7,7,3))+WhiteNoise.ar(Lag.ar(Dust2.ar(LFNoise1.kr(1,25,3),1,PinkNoise.kr(0.001)),0.02),0)).tanh;a=LPF.ar(LeakDC.ar(a,0.996),10000)};a=(a/10)}!8});

Ndef(\x,{{a=LFTri.ar(~bohlen.choose/3); 4.do{a=BAllPass.ar(a,PinkNoise.kr(11,90*[1,3,9/7,9/5,7/3,25/9].choose),0.01);a=BAllPass.ar(a,PinkNoise.kr(223,3*270*[1,3,9].choose*~bohlen.choose),0.003);a=((a*LFNoise0.ar(~bohlen.choose/7,7,3))+WhiteNoise.ar(Lag.ar(Dust2.ar(LFNoise1.kr(1,25,3),1,PinkNoise.kr(0.001)),0.02),0)).tanh;a=LPF.ar(LeakDC.ar(a),10000)};a=(a/10)}!8});

Ndef(\x,{{a=LFTri.ar(1/3);17.do{a=BAllPass.ar(a,PinkNoise.kr(0.001,40),1);a=BAllPass.ar(a,LFNoise0.kr(7/8,2400,2200),2);a=(a*LFNoise0.kr(3/4,7,2)).tanh;a=LeakDC.ar(a)};a/30}!8});

Ndef(\x,{{a=LFTri.ar(1/3);17.do{a=BAllPass.ar(a,PinkNoise.kr(0.01,40),0.1);a=BAllPass.ar(a,LFNoise0.kr(1/5,2400,2200),0.2);a=(a*LFNoise0.kr(1/4,7,2)).tanh;a=LeakDC.ar(a)};a/30}!8});

Ndef(\x,{{a=LFTri.ar([1/3,1/5,1/7,1/2]);17.do{a=BAllPass.ar(a,PinkNoise.kr(0.01,40),0.1);a=BAllPass.ar(a,LFNoise0.kr(1/5,2400,2200),0.2);a=(a*LFNoise0.kr(1/4,7,2)).tanh;a=LeakDC.ar(a)};a/50}!8});

Ndef(\x,{{a=LFTri.ar([1/3,1/5,1/7,1/2].choose);17.do{a=BAllPass.ar(a,PinkNoise.kr(0.01,40),0.1);a=BAllPass.ar(a,LFNoise0.kr([1,1/2,1/3,1/4,1/5].choose,2400,2200),0.2);a=(a*LFNoise0.kr([1,1/2,1/3,1/4,1/5].choose,7,2)).tanh;a=LeakDC.ar(a)};a/40}!8});

Ndef(\x,{{a=LFTri.ar(~bohlen.choose/[1,3,9].choose);17.do{a=BAllPass.ar(a,PinkNoise.kr(0.01,~bohlen.choose*30),0.1);a=BAllPass.ar(a,LFNoise0.kr(~bohlen.choose/[1,3,9].choose,2400,2200),LFNoise1.kr(~bohlen.choose/9,0.6,1));a=(a*LFNoise0.kr(~bohlen.choose/[1,3,9].choose,7,0.1)).tanh;a=LeakDC.ar(a)};a/50}!8});

Ndef(\x,{{a=LFTri.ar(~bohlen.choose*10/27,0,11); 5.do{a=BAllPass.ar(a,PinkNoise.kr(1,30*~bohlen.choose),2,1);a=BAllPass.ar(a,PinkNoise.kr(1,270*~bohlen.choose*[27,3,9].choose),0.001,17);a=((a*LFNoise1.ar(~bohlen.choose/9,3,1))+WhiteNoise.ar(PinkNoise.ar(0.1)*LFNoise2.ar(3,0.001))).tanh;a=LPF.ar(LeakDC.ar(a,0.995),10000)};a=(a/50)}!8});

Ndef(\x,{{a=LFTri.ar(~bohlen.choose/[1,3,9].choose);1.do{a=BAllPass.ar(a,PinkNoise.kr(0.01,~bohlen.choose*30),LFNoise1.kr(~bohlen.choose,11,0.01));a=BAllPass.ar(a,LFNoise2.kr(~bohlen.choose/[9,27].choose,3400,2200),LFNoise1.kr(~bohlen.choose/9,7,0.2));a=(a*LFNoise0.kr(~bohlen.choose/[1,3,9].choose,7,0.1)).tanh;a=LeakDC.ar(a.0.9)};a/50}!8});

Ndef(\x,{{a=LFTri.ar(~bohlen.choose/[1,3,9].choose);1.do{a=BAllPass.ar(a,PinkNoise.kr(0.01,~bohlen.choose*30),LFNoise1.kr(~bohlen.choose,12,2));a=BAllPass.ar(a,LFNoise2.kr(~bohlen.choose/[3,9,27].choose,2400,2200),LFNoise1.kr(~bohlen.choose/9,0.6,1));a=(a*LFNoise0.kr(~bohlen.choose/[1,3,9].choose,7,1)).tanh;a=LeakDC.ar(a)};a/30}!8});

Ndef(\x,{{a=LFTri.ar(1/3);7.do{a=BAllPass.ar(a,PinkNoise.kr(0.1,40),1);a=BAllPass.ar(a,LFNoise0.kr(7/8,2400,2200),2);a=(a*LFNoise0.kr(3/4,7,2)).tanh;a=LeakDC.ar(a)};a/10}!8});

Ndef(\x,{{a=LFTri.ar(1/3);17.do{a=BAllPass.ar(a,PinkNoise.kr(0.001,40),1);a=BAllPass.ar(a,LFNoise0.kr(7/8,2400,2200),2);a=(a*LFNoise0.kr(3/4,7,2)).tanh;a=LeakDC.ar(a)};a/20}!8});

Ndef(\x,{{a=LFSaw.ar(1/3);7.do{a=BAllPass.ar(a,PinkNoise.kr(0.1,30),0.02);a=BBandStop.ar(a,LFNoise0.kr(9/5,1400,2200)*PinkNoise.kr(0.4,1),0.002,1);a=(a*LFNoise0.kr(1/7,7,1)).tanh;a=LeakDC.ar(a)};a/20}!8});

Ndef(\x,{{a=LFSaw.ar(1/3);7.do{a=BAllPass.ar(a,PinkNoise.kr(0.1,30),0.02);a=BBandStop.ar(a,LFNoise0.kr([1,3,9/7,9/5,7/3,25/9].choose/3,1200,2000),0.002,LPF.kr(PinkNoise.kr(0.01,1),90));a=(a*LFNoise0.kr(1/7,7,1)).tanh;a=LeakDC.ar(a)};a/20}!8});

Ndef(\x,{f=30*[1,3,9/7,9/5,7/3,25/9].choose;{a=LFSaw.ar(1/3);7.do{a=BAllPass.ar(a,PinkNoise.kr(0.1,f),0.04);a=BBandStop.ar(a,LFNoise0.kr([1,3,9/7,9/5,7/3,25/9].choose/3,1200,2000)*PinkNoise.kr(0.1,1),0.001,1);a=(a*LFNoise0.kr(1/7,7,1)).tanh;a=LeakDC.ar(a)};a/20}!8});

Ndef(\x,{{a=LFSaw.ar(LFNoise1.kr(1/3,7,0.1));4.do{a=BAllPass.ar(a,PinkNoise.kr(11,~bohlen.choose*30),0.001,7);a=BAllPass.ar(a,LFNoise0.kr(~bohlen.choose/3,2300,4200),0.02);a=(a*LFNoise0.kr(3/4,7,2)).tanh;a=LeakDC.ar(a,0.995)};a/30}!8});

Ndef(\x,{{a=LFTri.ar(1/3);13.do{a=BAllPass.ar(a,PinkNoise.kr(11,90),0.001);a=BAllPass.ar(a,LFNoise0.kr(7/8,2400,2200),2);a=(a*LFNoise0.kr(3/4,7,2)).tanh;a=LeakDC.ar(a)};a/30}!8});

Ndef(\x,{{a=LFSaw.ar(LFNoise1.kr(1/9,7,0.1));7.do{a=BAllPass.ar(a,PinkNoise.kr(0.01,~bohlen.choose*30),5);a=BAllPass.ar(a,PinkNoise.kr(0.01,~bohlen.choose)*270*[1,3,9].choose*LFPulse.kr(~bohlen.choose/3,0,0.5,2,1),1);a=(a*LFNoise0.kr(1/9,7,2)).tanh;a=LeakDC.ar(a,0.997)};a/30}!8});

Ndef(\x,{{a=LFSaw.ar(LFNoise2.kr(~bohlen.choose,3,1));7.do{a=BAllPass.ar(a,PinkNoise.kr(11,~bohlen.choose*30),0.2,1);a=BAllPass.ar(a,PinkNoise.kr(0.1,~bohlen.choose)*270*[1,3,9].choose*LFPulse.kr(~bohlen.choose,0,0.5,2,1),1);a=(a*LFNoise0.kr(~bohlen.choose,7,1)).tanh;a=LeakDC.ar(a,0.997)};a/30}!8});

Ndef(\x,{{a=LFSaw.ar(LFNoise1.kr(1/9,7,0.1));5.do{a=BAllPass.ar(a,PinkNoise.kr(221,~bohlen.choose*90),0.01);a=BAllPass.ar(a,PinkNoise.kr(0.02,~bohlen.choose)*270*[1,3,9].choose*LFPulse.kr(~bohlen.choose/3,0,0.5,3,1),1);a=(a*LFNoise0.kr(~bohlen.choose/3,3,1)).tanh;a=LeakDC.ar(a,0.997)};a/20}!8});

Ndef(\x,{{a=LFTri.ar(~bohlen.choose/3); 4.do{a=BAllPass.ar(a,PinkNoise.kr(11,30*[1,3,9/7,9/5,7/3,25/9].choose),0.01);a=BAllPass.ar(a,PinkNoise.kr(23,270*[1,3,9].choose*~bohlen.choose),0.003);a=((a*LFNoise0.ar(~bohlen.choose/7,7,3))+WhiteNoise.ar(Lag.ar(Dust2.ar(LFNoise1.kr(1,25,3),1,PinkNoise.kr(0.001)),0.02),0)).tanh;a=LPF.ar(LeakDC.ar(a,0.996),10000)};a=(a/10)}!8});

Ndef(\x,{{a=LFTri.ar(f=5/7,LFSaw.kr(f/3,0,1),2,LFPulse.kr(3/f,0,3/f));8.do{a=BAllPass.ar(a,PinkNoise.kr(0.2,30),0.1);a=BAllPass.ar(a,LFNoise0.kr(4/3,2400,3200),0.2,PinkNoise.kr(0.002,1));a=(a*LFNoise0.kr(4/3,7,1)).tanh;a=LeakDC.ar(a)};a/15}!8});

Ndef(\x,{{a=LFSaw.ar(5/4);17.do{a=BAllPass.ar(a,30,0.7);a=(a*LFNoise0.kr(4/3,3,1)).tanh;a=LeakDC.ar(a,0.997)};a/10}!8});

Ndef(\x,{{a=SinOsc.ar(11/3,LFNoise0.kr(~bohlen.choose,12),4,LFPulse.kr(~bohlen.choose));15.do{a=BAllPass.ar(a,PinkNoise.kr(11,30),02,1.2).tanh;a=LeakDC.ar(a)};a/10}!8});