source: examples/aubionotes.c @ 7280e67

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

examples plugins: update to latest pitch prototypes

  • Property mode set to 100644
File size: 4.0 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_do(o,fftgrain, onset);
42      if (usedoubled) {
43        aubio_onsetdetection_do(o2,fftgrain, onset2);
44        onset->data[0][0] *= onset2->data[0][0];
45      }
46      isonset = aubio_peakpicker_do(parms, onset);
47     
48      aubio_pitchdetection_do (pitchdet, ibuf, pitch_obuf);
49      pitch = fvec_read_sample(pitch_obuf, 0, 0);
50      if(median){
51              note_append(note_buffer, pitch);
52      }
53
54      /* curlevel is negatif or 1 if silence */
55      curlevel = aubio_level_detection(ibuf, silence);
56      if (isonset) {
57              /* test for silence */
58              if (curlevel == 1.) {
59                      isonset=0;
60                      if (median) isready = 0;
61                      /* send note off */
62                      send_noteon(curnote,0);
63              } else {
64                      if (median) {
65                              isready = 1;
66                      } else {
67                              /* kill old note */
68                              send_noteon(curnote,0);
69                              /* get and send new one */
70                              send_noteon(pitch,127+(int)floor(curlevel));
71                              curnote = pitch;
72                      }
73
74                      for (pos = 0; pos < overlap_size; pos++){
75                              obuf->data[0][pos] = woodblock->data[0][pos];
76                      }
77              }
78      } else {
79              if (median) {
80                      if (isready > 0)
81                              isready++;
82                      if (isready == median)
83                      {
84                              /* kill old note */
85                              send_noteon(curnote,0);
86                              newnote = get_note(note_buffer, note_buffer2);
87                              curnote = newnote;
88                              /* get and send new one */
89                              if (curnote>45){
90                                      send_noteon(curnote,127+(int)floor(curlevel));
91                              }
92                      }
93              } // if median
94        for (pos = 0; pos < overlap_size; pos++)
95          obuf->data[0][pos] = 0.;
96      }
97      /* end of block loop */
98      pos = -1; /* so it will be zero next j loop */
99    }
100    pos++;
101  }
102  return 1;
103}
104
105void process_print (void);
106void process_print (void) {
107      if (verbose) outmsg("%f\n",pitch);
108}
109
110int main(int argc, char **argv) {
111  examples_common_init(argc,argv);
112  examples_common_process(aubio_process, process_print);
113  examples_common_del();
114  debug("End of program.\n");
115  fflush(stderr);
116  return 0;
117}
118
Note: See TracBrowser for help on using the repository browser.