examples/demonstrations/bit_reduction.scd

   1
   2 // bit reduction
   3 // adc
   4
   5 //--samplerate decrease
   6 (\r{     var snd = Blip.ar(LFNoise2.kr(8, 200, 300), LFNoise2.kr(3, 10, 20));\r   var samplerate = MouseX.kr(1000, s.sampleRate * 0.1, \exponential);\r    Latch.ar(snd, Impulse.ar(samplerate));\r }.play;\r)\r
   7
   8 //--bitrate decrease\r(
   9 {       var snd = Blip.ar(LFNoise2.kr(8, 200, 300), LFNoise2.kr(3, 10, 20));\r   var samplerate = MouseX.kr(1000, s.sampleRate * 0.5, \exponential);\r    var bitSize = MouseY.kr(1, 24, \exponential);\r  var downsamp = Latch.ar(snd, Impulse.ar(samplerate));\r  var bitRedux = downsamp.round(0.5 ** bitSize);\r [downsamp, bitRedux];\r}.play\r)\r