Refactoring of rec process "~" in faustexp.ml.
[Faustine.git] / dsp_files / tests / fft_patten_test.dsp
1 import ( "math.lib" ) ;
2 import ( "complex.lib" ) ;
3
4 even = case {
5 ((e, o, x)) => vectorize(e), vectorize(even(x)) : # ;
6 ((e,o)) => e;
7 };
8 odd = case {
9 ((e, o, x)) => vectorize(o), vectorize(odd(x)) : # ;
10 ((e,o)) => o;
11 };
12 eo(x) = even(x), odd(x);
13
14 process = eo((0,1,2,3,4,5,6,7)) : oneOutputStereoFile;
15
16 oneOutputStereoFile = serialize, serialize : vectorize(1), vectorize(1) : #;