source: examples/aubionotes.c @ 466dff3

feature/autosinkfeature/constantqfeature/pitchshiftfeature/pydocstringsfeature/timestretchpitchshiftsamplertimestretchyinfft+
Last change on this file since 466dff3 was 466dff3, checked in by Paul Brossier <piem@piem.org>, 6 years ago

examples/: large refactoring, improve option management, remove old stuff, move blocking logic to jackio

  • Property mode set to 100644
File size: 4.3 KB
Line 
1/*
2  Copyright (C) 2003-2013 Paul Brossier <piem@aubio.org>
3
4  This file is part of aubio.
5
6  aubio is free software: you can redistribute it and/or modify
7  it under the terms of the GNU General Public License as published by
8  the Free Software Foundation, either version 3 of the License, or
9  (at your option) any later version.
10
11  aubio is distributed in the hope that it will be useful,
12  but WITHOUT ANY WARRANTY; without even the implied warranty of
13  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  GNU General Public License for more details.
15
16  You should have received a copy of the GNU General Public License
17  along with aubio.  If not, see <http://www.gnu.org/licenses/>.
18
19*/
20
21#define AUBIO_UNSTABLE 1 // for fvec_median
22#include "utils.h"
23#define PROG_HAS_PITCH 1
24#define PROG_HAS_ONSET 1
25#include "parse_args.h"
26
27uint_t median = 6;
28
29fvec_t *note_buffer;
30fvec_t *note_buffer2;
31
32smpl_t curnote = 0.;
33smpl_t newnote = 0.;
34uint_t isready = 0;
35
36aubio_pitch_t *pitch;
37aubio_onset_t *o;
38fvec_t *onset;
39fvec_t *pitch_obuf;
40
41/** append new note candidate to the note_buffer and return filtered value. we
42 * need to copy the input array as fvec_median destroy its input data.*/
43void note_append (fvec_t * note_buffer, smpl_t curnote);
44uint_t get_note (fvec_t * note_buffer, fvec_t * note_buffer2);
45
46static void
47process_block(fvec_t *ibuf, fvec_t *obuf) {
48  fvec_zeros(obuf);
49  aubio_onset_do(o, ibuf, onset);
50
51  aubio_pitch_do (pitch, ibuf, pitch_obuf);
52  smpl_t new_pitch = fvec_read_sample(pitch_obuf, 0);
53  if(median){
54    note_append(note_buffer, new_pitch);
55  }
56
57  /* curlevel is negatif or 1 if silence */
58  smpl_t curlevel = aubio_level_detection(ibuf, silence);
59  if (fvec_read_sample(onset, 0)) {
60    /* test for silence */
61    if (curlevel == 1.) {
62      if (median) isready = 0;
63      /* send note off */
64      send_noteon(curnote,0);
65    } else {
66      if (median) {
67        isready = 1;
68      } else {
69        /* kill old note */
70        send_noteon(curnote,0);
71        /* get and send new one */
72        send_noteon(new_pitch,127+(int)floor(curlevel));
73        curnote = new_pitch;
74      }
75    }
76  } else {
77    if (median) {
78      if (isready > 0)
79        isready++;
80      if (isready == median)
81      {
82        /* kill old note */
83        send_noteon(curnote,0);
84        newnote = get_note(note_buffer, note_buffer2);
85        curnote = newnote;
86        /* get and send new one */
87        if (curnote>45){
88          send_noteon(curnote,127+(int)floor(curlevel));
89        }
90      }
91    } // if median
92  }
93}
94
95static void
96process_print (void) {
97  //if (verbose) outmsg("%f\n",pitch_obuf->data[0]);
98}
99
100void
101note_append (fvec_t * note_buffer, smpl_t curnote)
102{
103  uint_t i = 0;
104  for (i = 0; i < note_buffer->length - 1; i++) {
105    note_buffer->data[i] = note_buffer->data[i + 1];
106  }
107  note_buffer->data[note_buffer->length - 1] = curnote;
108  return;
109}
110
111uint_t
112get_note (fvec_t * note_buffer, fvec_t * note_buffer2)
113{
114  uint_t i;
115  for (i = 0; i < note_buffer->length; i++) {
116    note_buffer2->data[i] = note_buffer->data[i];
117  }
118  return fvec_median (note_buffer2);
119}
120
121int main(int argc, char **argv) {
122  examples_common_init(argc,argv);
123
124  verbmsg ("using source: %s at %dHz\n", source_uri, samplerate);
125
126  verbmsg ("onset method: %s, ", onset_method);
127  verbmsg ("buffer_size: %d, ", buffer_size);
128  verbmsg ("hop_size: %d, ", hop_size);
129  verbmsg ("threshold: %f\n", onset_threshold);
130
131  verbmsg ("pitch method: %s, ", pitch_method);
132  verbmsg ("buffer_size: %d, ", buffer_size * 4);
133  verbmsg ("hop_size: %d, ", hop_size);
134  verbmsg ("tolerance: %f\n", pitch_tolerance);
135
136  o = new_aubio_onset (onset_method, buffer_size, hop_size, samplerate);
137  if (onset_threshold != 0.) aubio_onset_set_threshold (o, onset_threshold);
138  onset = new_fvec (1);
139
140  pitch = new_aubio_pitch (pitch_method, buffer_size * 4, hop_size, samplerate);
141  if (pitch_tolerance != 0.) aubio_pitch_set_tolerance (pitch, pitch_tolerance);
142  pitch_obuf = new_fvec (1);
143
144  if (median) {
145      note_buffer = new_fvec (median);
146      note_buffer2 = new_fvec (median);
147  }
148
149  examples_common_process((aubio_process_func_t)process_block, process_print);
150
151  // send a last note off
152  send_noteon (curnote, 0);
153
154  del_aubio_pitch (pitch);
155  if (median) {
156      del_fvec (note_buffer);
157      del_fvec (note_buffer2);
158  }
159  del_fvec (pitch_obuf);
160
161  examples_common_del();
162  return 0;
163}
164
Note: See TracBrowser for help on using the repository browser.