projects / Faustine.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (from parent 1: de2caab)
Add sinwave, fft and fft2d examples.
authorWANG <wang@wang-OptiPlex-780.(none)>
Thu, 29 Aug 2013 12:54:38 +0000 (14:54 +0200)
committerWANG <wang@wang-OptiPlex-780.(none)>
Thu, 29 Aug 2013 12:54:38 +0000 (14:54 +0200)
examples/input_sounds/hcosine-32.csv patch | blob | history
interpretor/main.ml patch | blob | history

diff --git a/examples/input_sounds/hcosine-32.csv b/examples/input_sounds/hcosine-32.csv
index 7d458c3..14d3ba6 100644 (file)
--- a/examples/input_sounds/hcosine-32.csv
+++ b/examples/input_sounds/hcosine-32.csv
@@ -1,1024 +1,32 @@
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
-217
-38
-38
-217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
+217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217,217,38,38,217
diff --git a/interpretor/main.ml b/interpretor/main.ml
index a99a7a5..8637875 100644 (file)
--- a/interpretor/main.ml
+++ b/interpretor/main.ml
@@ -32,7 +32,7 @@ let path_dsp = ref "";;
 let size_input = ref 0;;
 let inputs = ref [];;
 let time_max = ref 0xFFFF;;
 let size_input = ref 0;;
 let inputs = ref [];;
 let time_max = ref 0xFFFF;;
-let dir_output = ref "../output_sounds/";;
+let dir_output = ref "";;
 let format_output = ref "wav";;
 let basename_output = ref "output";;
 
 let format_output = ref "wav";;
 let basename_output = ref "output";;
 
An OCaml-based interpreter for Faust and its vector extension