interpretor/preprocessor/faust-0.9.47mr3/tools/faust2pd/examples/faust/spat.dsp

   1 declare name            "spat";
   2 declare version         "1.0";
   3 declare author          "Grame";
   4 declare license         "BSD";
   5 declare copyright       "(c)GRAME 2006";
   6
   7 //==========================================================
   8 //
   9 //                                          GMEM SPAT
  10 //      implementation of L. Pottier Spatializer
  11 //
  12 //==========================================================
  13
  14
  15
  16
  17 //------------------------------------------------------
  18 // Volume d'une voie de sortie
  19 //------------------------------------------------------
  20 //      i = numero de voie (entre 0 et n-1)
  21 //  n = nombre total de voies
  22 //      a = angle de la source (entre 0 et 1)
  23 //      d = distance de la source (entre 0 et 1)
  24 //------------------------------------------------------
  25
  26 scaler(i,n,a,d) = sqrt(max(0.0, 1.0 - abs( fmod(a+0.5+float(n-i)/n, 1.0) - 0.5 ) * (n*d))) * (d/2.0+0.5);
  27
  28
  29
  30 //------------------------------------------------------
  31 // spatialisateur a N sorties
  32 //  n = nombre de sorties
  33 //      a = angle de la source (entre 0 et 1)
  34 //      d = distance de la source (entre 0 et 1)
  35 //
  36 // utilise le constructeur parametrique : par(i,n,E(i))
  37 // qui met en parallele n expressions E(0), E(1), ...E(n-1)
  38 //------------------------------------------------------
  39 smooth(c)       = *(1-c) : +~*(c);
  40 spat(n,a,d)     = _ <: par(i, n, *( scaler(i, n, a, d) : smooth(0.9999) ));
  41
  42
  43
  44
  45 //------------------------------------------------------
  46 // EXEMPLE : une entree mono spatialisee sur 8 sorties
  47 //------------------------------------------------------
  48
  49 angle                   = hslider("angle",    0.0, 0, 1, 0.01);
  50 distance                = hslider("distance", 0.5, 0, 1, 0.01);
  51
  52 process                 = vgroup("Spatializer 1x8", spat(8, angle, distance));
  53
  54