File: pink.dsp

package info (click to toggle)
faust 0.9.46-2
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 15,256 kB
  • ctags: 9,961
  • sloc: cpp: 47,746; sh: 2,254; ansic: 1,503; makefile: 1,211; ruby: 950; yacc: 468; objc: 459; lex: 200; xml: 177
file content (23 lines) | stat: -rw-r--r-- 505 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 

declare name "pink -- pink noise";
declare author "Albert Graef";
declare version "1.0";

import("music.lib");

// control variables

vol	= nentry("vol", 0.3, 0, 10, 0.01);	// %
pan	= nentry("pan", 0.5, 0, 1, 0.01);	// %

// pink noise filter (-3dB per octave), see musicdsp.org

pink	= f : (+ ~ g) with {
	f(x)	= 0.04957526213389*x - 0.06305581334498*x' +
		  0.01483220320740*x'';
	g(x)	= 1.80116083982126*x - 0.80257737639225*x';
};

// pink noise generator

process	= (noise:pink)*vol : panner(pan);