X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/1059e1cc0c2ecfa237406949aa26155b6a5b9154..66f23d4fabf89ad09adbd4dfc15ac6b5b2b7da83:/interpreter/preprocessor/faust-0.9.47mr3/tools/faust2pd/examples/basic/pink.dsp

diff --git a/interpreter/preprocessor/faust-0.9.47mr3/tools/faust2pd/examples/basic/pink.dsp b/interpreter/preprocessor/faust-0.9.47mr3/tools/faust2pd/examples/basic/pink.dsp
new file mode 100644
index 0000000..3e2bc4f
--- /dev/null
+++ b/interpreter/preprocessor/faust-0.9.47mr3/tools/faust2pd/examples/basic/pink.dsp
@@ -0,0 +1,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);