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