source: examples/aubionotes.c @ 50bc5f2

feature/autosinkfeature/cnnfeature/cnn_orgfeature/constantqfeature/crepefeature/crepe_orgfeature/pitchshiftfeature/pydocstringsfeature/timestretchfix/ffmpeg5pitchshiftsamplertimestretchyinfft+
Last change on this file since 50bc5f2 was c423c3d, checked in by Paul Brossier <piem@piem.org>, 15 years ago

examples/: use native aubio smpl_t for aubio_process_func_t

  • Property mode set to 100644
File size: 3.9 KB
Line 
1/*
2   Copyright (C) 2003 Paul Brossier
3
4   This program is free software; you can redistribute it and/or modify
5   it under the terms of the GNU General Public License as published by
6   the Free Software Foundation; either version 2 of the License, or
7   (at your option) any later version.
8
9   This program is distributed in the hope that it will be useful,
10   but WITHOUT ANY WARRANTY; without even the implied warranty of
11   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12   GNU General Public License for more details.
13
14   You should have received a copy of the GNU General Public License
15   along with this program; if not, write to the Free Software
16   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
17*/
18
19#include "utils.h"
20
21unsigned int pos = 0; /*frames%dspblocksize*/
22uint_t usepitch = 1;
23
24int aubio_process(smpl_t **input, smpl_t **output, int nframes);
25int aubio_process(smpl_t **input, smpl_t **output, int nframes) {
26  unsigned int i;       /*channels*/
27  unsigned int j;       /*frames*/
28  for (j=0;j<(unsigned)nframes;j++) {
29    if(usejack) {
30      for (i=0;i<channels;i++) {
31        /* write input to datanew */
32        fvec_write_sample(ibuf, input[i][j], i, pos);
33        /* put synthnew in output */
34        output[i][j] = fvec_read_sample(obuf, i, pos);
35      }
36    }
37    /*time for fft*/
38    if (pos == overlap_size-1) {         
39      /* block loop */
40      aubio_pvoc_do (pv,ibuf, fftgrain);
41      aubio_onsetdetection(o,fftgrain, onset);
42      if (usedoubled) {
43        aubio_onsetdetection(o2,fftgrain, onset2);
44        onset->data[0][0] *= onset2->data[0][0];
45      }
46      isonset = aubio_peakpick_pimrt(onset,parms);
47     
48      pitch = aubio_pitchdetection(pitchdet,ibuf);
49      if(median){
50              note_append(note_buffer, pitch);
51      }
52
53      /* curlevel is negatif or 1 if silence */
54      curlevel = aubio_level_detection(ibuf, silence);
55      if (isonset) {
56              /* test for silence */
57              if (curlevel == 1.) {
58                      isonset=0;
59                      if (median) isready = 0;
60                      /* send note off */
61                      send_noteon(curnote,0);
62              } else {
63                      if (median) {
64                              isready = 1;
65                      } else {
66                              /* kill old note */
67                              send_noteon(curnote,0);
68                              /* get and send new one */
69                              send_noteon(pitch,127+(int)floor(curlevel));
70                              curnote = pitch;
71                      }
72
73                      for (pos = 0; pos < overlap_size; pos++){
74                              obuf->data[0][pos] = woodblock->data[0][pos];
75                      }
76              }
77      } else {
78              if (median) {
79                      if (isready > 0)
80                              isready++;
81                      if (isready == median)
82                      {
83                              /* kill old note */
84                              send_noteon(curnote,0);
85                              newnote = get_note(note_buffer, note_buffer2);
86                              curnote = newnote;
87                              /* get and send new one */
88                              if (curnote>45){
89                                      send_noteon(curnote,127+(int)floor(curlevel));
90                              }
91                      }
92              } // if median
93        for (pos = 0; pos < overlap_size; pos++)
94          obuf->data[0][pos] = 0.;
95      }
96      /* end of block loop */
97      pos = -1; /* so it will be zero next j loop */
98    }
99    pos++;
100  }
101  return 1;
102}
103
104void process_print (void);
105void process_print (void) {
106      if (verbose) outmsg("%f\n",pitch);
107}
108
109int main(int argc, char **argv) {
110  examples_common_init(argc,argv);
111  examples_common_process(aubio_process, process_print);
112  examples_common_del();
113  debug("End of program.\n");
114  fflush(stderr);
115  return 0;
116}
117
Note: See TracBrowser for help on using the repository browser.