66a52f2905cc2a8e3d429be9cf95c96dd389f982
[Faustine.git] / 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) <: _,_ ;