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

   1 declare name            "select3";
   2 declare version         "0.1";
   3 declare author          "Grame";
   4 declare license         "BSD";
   5 declare copyright       "(c)GRAME 2009";
   6
   7 //-----------------------------------------------
   8 // Three 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 noise3 = 0;
  18
  19 process = select3(button("Switch"), noise1, noise2, noise3) * hslider("volume", 0, 0, 1, 0.01) <: _,_ ;