dsp_files/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) : #;