{
   "code" : "s.options.blockSize = 1;//because it uses feedback its good to have a small block size\r\ns.boot\r\n\r\n(\r\n\r\n// parameters (a mix of the first blippoo box as documented in the article by Rob Hordijk and the one Richard Scott has)\r\n\r\nControlSpec.specs[\\freqOscA] = ControlSpec.specs[\\widefreq].copy;\r\nControlSpec.specs[\\freqOscB] = ControlSpec.specs[\\widefreq].copy;\r\nControlSpec.specs[\\fm_b_a] = ControlSpec(0, 5000, 10, 0, 0, \" Hz\");\r\nControlSpec.specs[\\fm_a_b] = ControlSpec(0, 5000, 10, 0, 0, \" Hz\");\r\nControlSpec.specs[\\fm_r_a] = ControlSpec(0, 5000, 10, 0, 0, \" Hz\");\r\nControlSpec.specs[\\fm_r_b] = ControlSpec(0, 5000, 10, 0, 0, \" Hz\");\r\nControlSpec.specs[\\fm_sah_a] = ControlSpec(0, 5000, 10, 0, 0, \" Hz\");\r\nControlSpec.specs[\\fm_sah_b] = ControlSpec(0, 5000, 10, 0, 0, \" Hz\");\r\nControlSpec.specs[\\freqPeak1] = ControlSpec.specs[\\freq].copy;\r\nControlSpec.specs[\\freqPeak2] = ControlSpec.specs[\\freq].copy;\r\nControlSpec.specs[\\fm_r_peak1] = ControlSpec(0, 5000, 10, 0, 0, \" Hz\");\r\nControlSpec.specs[\\fm_r_peak2] = ControlSpec(0, 5000, 10, 0, 0, \" Hz\");\r\nControlSpec.specs[\\fm_sah_peak] = ControlSpec(0, 5000, 10, 0, 0, \" Hz\");\r\nControlSpec.specs[\\resonance] = ControlSpec.specs[\\rq].copy;\r\n\r\n\r\n~rungler = {arg clock,sig; // this is the rumbler as described for the blippoo box\r\n\tvar buffer = LocalBuf(8);// i am sure it could be implemented without buffer\r\n\tvar pos = Stepper.ar(clock,0,0,7,1);\r\n\tvar w = BufWr.ar(sig,buffer,pos);\r\n\tvar r1 = BufRd.ar(1,buffer,(pos + 5)%8,0,0)>0;\r\n\tvar r2 = BufRd.ar(1,buffer,(pos + 6)%8,0,0)>0;\r\n\tvar r3 = BufRd.ar(1,buffer,(pos + 7)%8,0,0)>0;\r\n\t(((r1<<0) + (r2<<1) + (r3<<2))/7).lag(1/10000);\r\n};\r\n\r\n~twinpeaks = {arg in,f1,f2,r1,r2; // this is the twin peaks filter as described for the blippoo box but without the distortion (unfortunately)\r\n\tvar l1 = RLPF.ar(in     ,f1.fold(20,20000).lag(0.005),r1);//lag is necessary to make sure the filter stays stable\r\n\tvar l2 = RLPF.ar(in * -1,f2.fold(20,20000).lag(0.005),r2);\r\n\tl1 + l2;\r\n};\r\n\r\nNdef(\\blippoo_Box,{|\r\n\tfreqOscA = 10.46, //frequency oscilator a\r\n\tfreqOscB = 0.32, //frequency oscilator b\r\n\tfm_b_a = 10.02, //fm oscilator b -> oscilator a\r\n\tfm_a_b = 2.81, //fm oscilator a -> oscilator b\r\n\tfm_r_a = 160.2, //fm rungler2 -> oscilator a\r\n\tfm_r_b = 16.27, //fm runglefreqOscA -> oscilator b\r\n\tfm_sah_a = 6.14, //fm SampleAndHold -> oscilator a\r\n\tfm_sah_b = 6.14, //fm SampleAndHold -> oscilator a\r\n\r\n\tfreqPeak1 = 231.4, //freqency filter 1\r\n\tfreqPeak2 = 895, //frequency filter 2\r\n\tfm_r_peak1 = 1000, //fm rungler1 -> filter 1\r\n\tfm_r_peak2 = 3000, //fm rungler2 -> filter 2\r\n\t// fm_r_peak = 94.31, //fm rungler2 -> filter 2\r\n\tfm_sah_peak = 272.1, //fm rungler2 -> filter 2\r\n\t// fm_sah_1 = 10, //fm SampleAndHold -> filter 1\r\n\t// fm_sah_2 = 10, //fm SampleAndHold -> filter 2\r\n\tresonance = 0.06 //filter resonance\r\n\t|\r\n\r\n\tvar fb = LocalIn.ar(5);\r\n\tvar rfreqOscA = freqOscA + LFNoise2.ar(freqOscA.max(10)/10,freqOscA.max(10)/1000);//add a bit randomness to the frequencies\r\n\tvar rfreqOscB = freqOscB + LFNoise2.ar(freqOscB.max(10)/10,freqOscB.max(10)/1000);\r\n\tvar tri1 = LFTri.ar((rfreqOscA + (fb[1] * fm_b_a) + (fb[2] * fm_r_a) + (fb[4] * fm_sah_a)).fold(0,20000));\r\n\tvar tri2 = LFTri.ar((rfreqOscB + (fb[0] * fm_a_b) + (fb[3] * fm_r_b) + (fb[4] * fm_sah_b)).fold(0,20000));\r\n\tvar puls1 = tri1>Delay1.ar(tri1);\r\n\tvar puls2 = tri2>Delay1.ar(tri2);\r\n\tvar sah = Latch.ar(tri1,puls2).lag(1/10000);\r\n\tvar rungler1 = ~rungler.(puls1,puls2);\r\n\tvar rungler2 = ~rungler.(puls2,puls1);\r\n\tvar rung = rungler1 + rungler2;\r\n\tvar comparator = ((tri1<tri2)-0.5).lag3ud(1/10000,1/5000);\r\n\tvar pf1 = (freqPeak1 + (sah * fm_sah_peak * -1) + (rung * fm_r_peak1)).abs;\r\n\tvar pf2 = (freqPeak2 + (sah * fm_sah_peak) + (rung * fm_r_peak2)).abs;\r\n\tvar sig = ~twinpeaks.(comparator,pf1,pf2,resonance,resonance);\r\n\tvar fbout = LocalOut.ar([tri1,tri2,rungler1,rungler2,sah]);\r\n\tOut.ar(0,Limiter.ar(sig/100)!2);\r\n});\r\n\r\nNdef('blippoo_Box').set('fm_sah_b', 32.584637770027, 'freqPeak1', 115.59385768307, 'fm_r_peak1', 1022.2025597648, 'freqOscB', 22.699345303073, 'freqOscA', 3.9693859855577, 'fm_r_a', 6.4822052062949, 'freqPeak2', 802.05582789904, 'resonance', 0.053593355607996, 'fm_r_b', 55.467640210437, 'fm_sah_peak', 187.8431927844, 'fm_b_a', 0.0, 'fm_sah_a', 4.1668212367655, 'fm_r_peak2', 669.35696176669, 'fm_a_b', 0.0).gui;\r\n\r\n)",
   "id" : "1-5bB",
   "is_private" : null,
   "labels" : [
      "chaos",
      "blippoo box",
      "shift register",
      "imitation"
   ],
   "description" : "This is a implementation of the blippoo box as it is documented in the article \"The Blippoo Box: A Chaotic Electronic Music Instrument, Bent by Design\" by Rob Hordijk. i saw on Richard Scotts blippoo box some parameters that are not documented as such in the document so i added them... thats why it has more parameters. I put a Limiter onto the output to make sure it doesn't get too loud.\r\n\r\nunfortunately i didn't know how to make the distortion inside the filter that rob describes.\r\n\r\nhave fun",
   "ancestor_list" : [],
   "name" : "blippoo Box",
   "author" : "olaf"
}