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

diff --git a/interpretor/faust-0.9.47mr3/examples/pitch_shifter.dsp b/interpretor/faust-0.9.47mr3/examples/pitch_shifter.dsp
deleted file mode 100644
index e130af4..0000000
--- a/interpretor/faust-0.9.47mr3/examples/pitch_shifter.dsp
+++ /dev/null
@@ -1,28 +0,0 @@
-declare name 		"pitch-shifter";
-declare version 	"1.0";
-declare author 		"Grame";
-declare license 	"BSD";
-declare copyright 	"(c)GRAME 2006";
-
- //----------------------------
- // very simple real time pitch shifter
- //----------------------------
-
-import("music.lib");
-
-transpose (w, x, s, sig)  =
-	fdelay1s(d,sig)*fmin(d/x,1) + fdelay1s(d+w,sig)*(1-fmin(d/x,1))
-	   	with {
-			i = 1 - pow(2, s/12);
-			d = i : (+ : +(w) : fmod(_,w)) ~ _;
-	        };
-
-pitchshifter = vgroup("Pitch Shifter", transpose(
-									hslider("window (samples)", 1000, 50, 10000, 1),
-									hslider("xfade (samples)", 10, 1, 10000, 1),
-									hslider("shift (semitones) ", 0, -12, +12, 0.1)
-								  )
-				);
-
-
-process = pitchshifter;