X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/c7f552fd8888da2f0d8cfb228fe0f28d3df3a12c..b4b6f2ea75b9f0f3ca918f5b84016610bf7a4d4f:/interpretor/faust-0.9.47mr3/tools/faust2pd/examples/basic/pink.dsp

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