Refactoring of rec process "~" in faustexp.ml.
[Faustine.git] / dsp_files / make_init.dsp
1 rec(a, b, i) = a ~ (i : b);
2
3 vect0 = case {
4 ((y, z)) => vect0(y) : vect0(z);
5 (y) => _ , y : vectorize;
6 };
7
8 init_value = case {
9 ((x,y)) => init_value(x) : vect0(y);
10 (0) => 0;
11 (x) => 0 : vect0(x);
12 };
13
14 make_init(x) = (0, 1 : prefix), init_value(x), _ : select2;
15
16 A = +;
17 B = serialize, 2 : vectorize;
18 //B = serialize : _, 2 : vectorize;
19 I = make_init((2));
20
21 //process = _,_ : > ;
22
23 process = (0.000001, 2 : vectorize) : rec(A,B,I);
24
25 //process = 1, 2:+:+~((0,1:+),_ :+:_);