source: examples/aubioonset.c @ 2e2bfff

feature/autosinkfeature/cnnfeature/cnn_orgfeature/constantqfeature/crepefeature/crepe_orgfeature/pitchshiftfeature/pydocstringsfeature/timestretchfix/ffmpeg5pitchshiftsamplertimestretchyinfft+
Last change on this file since 2e2bfff was bd2f2ab, checked in by Paul Brossier <piem@altern.org>, 20 years ago

merged commmon code between aubionotes.c and aubioonset.c into utils.c

  • Property mode set to 100644
File size: 2.7 KB
RevLine 
[96fb8ad]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
[1f40359]21unsigned int pos = 0; /*frames%dspblocksize*/
[bd2f2ab]22uint_t usepitch = 0;
[96fb8ad]23
[bd2f2ab]24int aubio_process(float **input, float **output, int nframes);
[96fb8ad]25int aubio_process(float **input, float **output, int nframes) {
26  unsigned int i;       /*channels*/
27  unsigned int j;       /*frames*/
28  for (j=0;j<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      if (isonset) {
48        /* test for silence */
49        if (aubio_silence_detection(ibuf, threshold2)==1)
50          isonset=0;
51        else
52          for (pos = 0; pos < overlap_size; pos++){
53            obuf->data[0][pos] = woodblock->data[0][pos];
54          }
55      } else {
56        for (pos = 0; pos < overlap_size; pos++)
57          obuf->data[0][pos] = 0.;
58      }
[9cba1eb]59      /* end of block loop */
[96fb8ad]60      pos = -1; /* so it will be zero next j loop */
61    }
62    pos++;
63  }
64  return 1;
65}
66
[bd2f2ab]67void process_print (void);
68void process_print (void) {
[96fb8ad]69      /* output times in seconds, taking back some
70       * delay to ensure the label is _before_ the
71       * actual onset */
[9cba1eb]72      if (isonset && output_filename == NULL) {
[9499a546]73        if(frames >= 4) {
74          outmsg("%f\n",(frames-4)*overlap_size/(float)samplerate);
75        } else if (frames < 4) {
76          outmsg("%f\n",0.);
77        }
[96fb8ad]78      }
[bd2f2ab]79}
[96fb8ad]80
[bd2f2ab]81int main(int argc, char **argv) {
82  examples_common_init(argc,argv);
83  examples_common_process(aubio_process,process_print);
84  examples_common_del();
[96fb8ad]85  debug("End of program.\n");
86  fflush(stderr);
87  return 0;
88}
89
Note: See TracBrowser for help on using the repository browser.