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

diff --git a/interpreter/preprocessor/faust-0.9.47mr3/tools/faust2pd/examples/faust/capture.dsp b/interpreter/preprocessor/faust-0.9.47mr3/tools/faust2pd/examples/faust/capture.dsp
new file mode 100644
index 0000000..3117d5f
--- /dev/null
+++ b/interpreter/preprocessor/faust-0.9.47mr3/tools/faust2pd/examples/faust/capture.dsp
@@ -0,0 +1,27 @@
+declare name 		"capture";
+declare version 	"1.0";
+declare author 		"Grame";
+declare license 	"BSD";
+declare copyright 	"(c)GRAME 2006";
+
+//-------------------------------------------------
+// 		Capture : record up to 8s of sound and
+//		playback the recorded sound in loop
+//-------------------------------------------------
+
+import("music.lib");
+
+B = checkbox("Capture");	// Capture sound while pressed
+I = int(B);			// convert button signal from float to integer
+R = (I-I') <= 0;		// Reset capture when button is pressed
+D = (+(I):*(R))~_;		// Compute capture duration while button is pressed: 0..NNNN0..MMM
+
+
+capture = *(B) : (+ : delay(8*65536, D-1)) ~ *(1.0-B) ;
+
+
+smooth(c)	= *(1-c) : +~*(c);
+level		= hslider("level (db)", 0, -96, 4, 0.1) : db2linear : smooth(0.999);
+
+process 	= vgroup( "Audio Capture", capture : *(level) ) ;
+