X-Git-Url: https://scm.cri.minesparis.psl.eu/git/Faustine.git/blobdiff_plain/043c676f59520b93dfacfa0d8d7e1fdd448cd7dc..1878a8448a5a73cbf289306beb5e88ab48561129:/dsp_files/tests/fft_patten_test.dsp?ds=inline

diff --git a/dsp_files/tests/fft_patten_test.dsp b/dsp_files/tests/fft_patten_test.dsp
new file mode 100644
index 0000000..7294b4a
--- /dev/null
+++ b/dsp_files/tests/fft_patten_test.dsp
@@ -0,0 +1,16 @@
+import ( "math.lib" ) ;
+import ( "complex.lib" ) ;
+
+even = case {
+	((e, o, x)) => vectorize(e), vectorize(even(x)) : # ; 
+	((e,o)) => e;
+};
+odd = case {
+	((e, o, x)) => vectorize(o), vectorize(odd(x)) : # ; 
+	((e,o)) => o;
+};
+eo(x) = even(x), odd(x);
+
+process = eo((0,1,2,3,4,5,6,7)) : oneOutputStereoFile;
+
+oneOutputStereoFile = serialize, serialize : vectorize(1), vectorize(1) : #;