New directory tree, with preprocessor/ inside interpretor/.

[Faustine.git] / interpretor / faust-0.9.47mr3 / tools / faust2pd / examples / synth / echo.dsp

diff --git a/interpretor/faust-0.9.47mr3/tools/faust2pd/examples/synth/echo.dsp b/interpretor/faust-0.9.47mr3/tools/faust2pd/examples/synth/echo.dsp
deleted file mode 100644 (file)
index 26ba4d1..0000000
--- a/interpretor/faust-0.9.47mr3/tools/faust2pd/examples/synth/echo.dsp
+++ /dev/null
@@ -1,39 +0,0 @@
-
-/* Stereo delay with feedback. */
-
-declare name "echo -- stereo delay effect";
-declare author "Albert Graef";
-declare version "1.0";
-
-import("music.lib");
-
-level          = hslider("level", 1, 0, 1, 0.01);
-dtime          = hslider("delay", 0.040, 0, 5, 0.001);
-feedback       = hslider("feedback", 0, 0, 1, 0.001);
-stereo         = hslider("stereo", 1, 0, 1, 0.001);
-
-/* The stereo parameter controls the amount of stereo spread. For stereo=0 you
-   get a plain delay, without crosstalk between the channels. For stereo=1 you
-   get a pure ping-pong delay where the echos from the left first appear on
-   the right channel and vice versa. Note that you'll hear the stereo effects
-   only if the input signal already has some stereo spread to begin with; if
-   necessary, you can just pan the input signal to the left or the right to
-   achieve that. */
-
-echo(dtime,level,feedback,stereo,x,y)
-               = f(x,y) // the echo loop
-               // mix
-               : (\(u,v).(x+level*(d(u)+c(v)),
-                          y+level*(d(v)+c(u))))
-               // compensate for gain level
-               : (/(1+level), /(1+level))
-with {
-       f       = g ~ (*(feedback),*(feedback));
-       g(u,v,x,y)
-               = h(x+d(u)+c(v)), h(y+d(v)+c(u));
-       h       = fdelay(1<<18, SR*dtime);
-       c(x)    = x*stereo;
-       d(x)    = x*(1-stereo);
-};
-
-process                = vgroup("echo", echo(dtime,level,feedback,stereo));