Rename interpretor to interpreter.

[Faustine.git] / interpretor / preprocessor / faust-0.9.47mr3 / benchmark / tapiir.dsp

diff --git a/interpretor/preprocessor/faust-0.9.47mr3/benchmark/tapiir.dsp b/interpretor/preprocessor/faust-0.9.47mr3/benchmark/tapiir.dsp
deleted file mode 100644 (file)
index 589450d..0000000
--- a/interpretor/preprocessor/faust-0.9.47mr3/benchmark/tapiir.dsp
+++ /dev/null
@@ -1,62 +0,0 @@
-declare name           "tapiir";
-declare version        "1.0";
-declare author                 "Grame";
-declare license        "BSD";
-declare copyright      "(c)GRAME 2006";
-
-//======================================================
-//
-//                                     TAPIIR
-//       (from Maarten de Boer's Tapiir)
-//
-//======================================================
-
-import("music.lib");
-
-
-dsize          = 524288;
-
-
-
-// user interface
-//---------------
-
-
-tap(n)         = vslider("tap %n", 0,0,1,0.1);
-in(n)                  = vslider("input %n", 1,0,1,0.1);
-gain           = vslider("gain", 1,0,1,0.1);
-del            = vslider("delay (sec)", 0, 0, 5, 0.01) * SR;
-
-
-// bus, mixer and matrix
-//-----------------------------------------------------------
-
-//bus(n)                               =       par(i,n,_);
-
-mixer(taps,lines)      =       par(i,taps,*(tap(i))),
-                                               par(i,lines,*(in(i)))
-                                               :>  *(gain);
-
-
-matrix(taps,lines)     = ( bus(lines+taps)
-                                               <: tgroup("",
-                                                               par(i, taps,
-                                                                       hgroup("Tap %i",
-                                                                               mixer(taps,lines) : delay(dsize,del))))
-                                         ) ~ bus(taps);
-
-
-// tapiir
-//--------
-
-tapiir(taps,lines)     =       vgroup("Tapiir",
-                                                       bus(lines)
-                                                       <: (matrix(taps,lines), bus(lines))
-                                                       <: vgroup( "outputs", par( i, lines, hgroup("output %i", mixer(taps,lines)) ) )
-                                               );
-
-
-
-process                        =  tapiir(6,2);
-
-