tests/src/synth/test-sampler_table.c: add tests for table mode

diff --git a/tests/src/synth/test-sampler_table.c b/tests/src/synth/test-sampler_table.c
new file mode 100644 (file)
index 0000000..2ca369b
--- /dev/null
+++ b/tests/src/synth/test-sampler_table.c
@@ -0,0 +1,99 @@
+#include <aubio.h>
+#include "utils_tests.h"
+
+int time_was_reached (smpl_t time_s, uint_t n_frames, uint_t hop_size, uint_t samplerate) {
+    if ((n_frames / hop_size) == (uint_t)(time_s * samplerate) / hop_size) {
+      PRINT_MSG("reached %.2f sec at %d samples\n", time_s, n_frames);
+      return 1;
+    } else {
+      return 0;
+    }
+}
+
+int main (int argc, char **argv)
+{
+  sint_t err = 0;
+
+  if (argc < 1) {
+    err = 2;
+    PRINT_ERR("not enough arguments\n");
+    PRINT_MSG("usage: %s [samplerate] [blocksize] [output_path]\n", argv[0]);
+    return err;
+  }
+
+  uint_t samplerate = 44100;
+  uint_t hop_size = 64; //256;
+  uint_t n_frames = 0, frames_played = 0;
+  uint_t read = 0;
+  char_t *sink_path = NULL;
+  aubio_sink_t *sink = NULL;
+
+  if ( argc > 1 ) samplerate = atoi(argv[1]);
+  if ( argc > 2 ) hop_size = atoi(argv[2]);
+  if ( argc > 3 ) sink_path = argv[3];
+
+  fvec_t *vec = new_fvec(hop_size);
+
+  aubio_sampler_t * sampler = new_aubio_sampler (hop_size, samplerate);
+  if (!vec) goto beach;
+  if (!sampler) goto beach_sampler;
+  // load source file
+  //aubio_sampler_load (sampler, sample_path);
+  // load source file (asynchronously)
+  //aubio_sampler_queue (sampler, sample_path);
+  samplerate = aubio_sampler_get_samplerate (sampler);
+  if (samplerate == 0) {
+    PRINT_ERR("starting with samplerate = 0\n");
+    //goto beach_sink;
+  }
+
+  //fvec_t *table = new_fvec(1234560);
+  fvec_t *table = new_fvec(123456);
+
+  aubio_sampler_set_table(sampler, table);
+
+  if (sink_path) {
+    sink = new_aubio_sink(sink_path, samplerate);
+    if (!sink) goto beach_sink;
+  }
+
+  smpl_t sample_duration = table->length/(smpl_t) samplerate;
+  uint_t sample_repeat = 10;
+  smpl_t t1 = 1.,
+         t2 = t1 + sample_duration * sample_repeat - .1,
+         t3 = t2 - sample_duration + .1,
+         t4 = t3 + sample_duration + .1,
+         t5 = t4 + sample_duration + .1,
+         total_duration = t5 + sample_duration + .1;
+
+  //aubio_sampler_set_transpose(sampler, 0.);
+  //aubio_sampler_set_stretch(sampler, .8);
+
+  do {
+    if (time_was_reached(t1, n_frames, hop_size, samplerate)) {
+      PRINT_MSG("`-test one shot play of loaded sample\n");
+      aubio_sampler_set_loop( sampler, 1);
+      aubio_sampler_play ( sampler );
+    } else if (time_was_reached(t2, n_frames, hop_size, samplerate)) {
+      PRINT_MSG("`-test queueing while playing after eof was reached\n");
+      //aubio_sampler_queue (sampler, sample_path);
+      //aubio_sampler_play (sampler);
+      aubio_sampler_set_loop( sampler, 0);
+    }
+    aubio_sampler_do (sampler, vec, &read);
+    if (sink) aubio_sink_do(sink, vec, hop_size);
+    n_frames += hop_size;
+    frames_played += read;
+  } while ( n_frames <= total_duration * samplerate );
+  PRINT_MSG("reached %.2f sec at %d samples, sampler played %d frames\n",
+      total_duration, n_frames, frames_played);
+
+  if (sink) del_aubio_sink(sink);
+beach_sink:
+  del_aubio_sampler(sampler);
+beach_sampler:
+  del_fvec(vec);
+beach:
+  aubio_cleanup();
+  return 0;
+}