Merge branch 'master' of https://scm.cri.ensmp.fr/git/Faustine
[Faustine.git] / interpretor / faust-0.9.47mr3 / examples / quadecho.dsp
1 declare name "quadecho";
2 declare version "1.0";
3 declare author "Grame";
4 declare license "BSD";
5 declare copyright "(c)GRAME 2007";
6
7 //-----------------------------------------------
8 // A 1 second quadriphonic Echo
9 //-----------------------------------------------
10
11 import("music.lib");
12
13
14 process = vgroup("stereo echo", multi(echo1s, 4))
15 with{
16 multi(f,1) = f;
17 multi(f,n) = f,multi(f,n-1);
18 };
19