From d1e05f17aa7a1169e3e8ea4ccef8817d7dffb0da Mon Sep 17 00:00:00 2001 From: WANG Date: Thu, 29 Aug 2013 14:54:38 +0200 Subject: [PATCH] Add sinwave, fft and fft2d examples. --- examples/input_sounds/hcosine-32.csv | 1056 +------------------------- interpretor/main.ml | 2 +- 2 files changed, 33 insertions(+), 1025 deletions(-) diff --git a/examples/input_sounds/hcosine-32.csv b/examples/input_sounds/hcosine-32.csv index 7d458c3..14d3ba6 100644 --- 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 --- 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 dir_output = ref "../output_sounds/";; +let dir_output = ref "";; let format_output = ref "wav";; let basename_output = ref "output";; -- 2.20.1