File: bit_reduction.scd

package info (click to toggle)
supercollider 1%3A3.4.5-1wheezy1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 26,972 kB
  • sloc: cpp: 116,645; lisp: 64,914; ansic: 10,725; python: 3,548; perl: 766; ruby: 487; sh: 152; makefile: 117; xml: 13
file content (22 lines) | stat: -rw-r--r-- 590 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

// bit reduction
// adc

//--samplerate decrease
(
{	var snd = Blip.ar(LFNoise2.kr(8, 200, 300), LFNoise2.kr(3, 10, 20));
	var samplerate = MouseX.kr(1000, s.sampleRate * 0.1, \exponential);
	Latch.ar(snd, Impulse.ar(samplerate));
 }.play;
)

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