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