interpretor/faust-0.9.47mr3/examples/panpot.dsp

   1 declare name            "panpot";
   2 declare version         "1.0";
   3 declare author          "Grame";
   4 declare license         "BSD";
   5 declare copyright       "(c)GRAME 2006";
   6
   7 //-------------------------------------------------
   8 // Stereo panpot
   9 //-------------------------------------------------
  10
  11 panpot(x)       = sqrt(c)*x, sqrt(1-c)*x
  12                         with {
  13                                 c=(nentry("[1]pan[style:knob]",0,-90,90,1)-90.0)/-180.0;
  14                         };
  15
  16 process         = panpot;
  17