Completing Faustine by adding following primitives : float, power, &, |, xor, >=...
[Faustine.git] / interpretor / preprocessor / 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) <: _,_ ;