interpretor/faust-0.9.47mr3/tests/mathdoc/select2.dsp

   1 declare name            "select2";
   2 declare version         "0.1";
   3 declare author          "Grame";
   4 declare license         "BSD";
   5 declare copyright       "(c)GRAME 2009";
   6
   7 //-----------------------------------------------
   8 // Two noises compared
   9 //-----------------------------------------------
  10
  11
  12 RANDMAX = 2147483647;
  13 random1 = ffunction(int random (), <stdlib.h>, "");
  14 noise1 = (random1 << 1) * (1.0/RANDMAX);
  15 random2 = (*(1103515245)+12345) ~ _ ;
  16 noise2 = random2 * (1.0/RANDMAX);
  17
  18 process = select2(button("Switch"), noise1, noise2) * hslider("Volume", 0, 0, 1, 0.01) <: _,_ ;