X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/1059e1cc0c2ecfa237406949aa26155b6a5b9154..66f23d4fabf89ad09adbd4dfc15ac6b5b2b7da83:/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
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);
-
-