source: src/tempo/tempo.c @ d25bd12

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

src/tempo: use samplerate

  • Property mode set to 100644
File size: 5.0 KB
Line 
1/*
2   Copyright (C) 2006 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
20#include "aubio_priv.h"
21#include "fvec.h"
22#include "cvec.h"
23#include "onset/onsetdetection.h"
24#include "tempo/beattracking.h"
25#include "spectral/phasevoc.h"
26#include "onset/peakpick.h"
27#include "mathutils.h"
28#include "tempo/tempo.h"
29
30/* structure to store object state */
31struct _aubio_tempo_t {
32  aubio_onsetdetection_t * od;   /** onset detection */
33  aubio_pvoc_t * pv;             /** phase vocoder */
34  aubio_peakpicker_t * pp;       /** peak picker */
35  aubio_beattracking_t * bt;     /** beat tracking */
36  cvec_t * fftgrain;             /** spectral frame */
37  fvec_t * of;                   /** onset detection function value */
38  fvec_t * dfframe;              /** peak picked detection function buffer */
39  fvec_t * out;                  /** beat tactus candidates */
40  smpl_t silence;                /** silence parameter */
41  smpl_t threshold;              /** peak picking threshold */
42  sint_t blockpos;               /** current position in dfframe */
43  uint_t winlen;                 /** dfframe bufsize */
44  uint_t step;                   /** dfframe hopsize */ 
45  uint_t samplerate;             /** sampling rate of the signal */ 
46};
47
48/* execute tempo detection function on iput buffer */
49void aubio_tempo_do(aubio_tempo_t *o, fvec_t * input, fvec_t * tempo)
50{
51  uint_t i;
52  uint_t winlen = o->winlen;
53  uint_t step   = o->step;
54  aubio_pvoc_do (o->pv, input, o->fftgrain);
55  aubio_onsetdetection_do (o->od, o->fftgrain, o->of);
56  /*if (usedoubled) {
57    aubio_onsetdetection_do(o2,fftgrain, onset2);
58    onset->data[0][0] *= onset2->data[0][0];
59  }*/
60  /* execute every overlap_size*step */
61  if (o->blockpos == (signed)step -1 ) {
62    /* check dfframe */
63    aubio_beattracking_do(o->bt,o->dfframe,o->out);
64    /* rotate dfframe */
65    for (i = 0 ; i < winlen - step; i++ ) 
66      o->dfframe->data[0][i] = o->dfframe->data[0][i+step];
67    for (i = winlen - step ; i < winlen; i++ ) 
68      o->dfframe->data[0][i] = 0.;
69    o->blockpos = -1;
70  }
71  o->blockpos++;
72  tempo->data[0][1] = aubio_peakpicker_do (o->pp, o->of);
73  o->dfframe->data[0][winlen - step + o->blockpos] = 
74    aubio_peakpicker_get_thresholded_input(o->pp);
75  /* end of second level loop */
76  tempo->data[0][0] = 0; /* reset tactus */
77  i=0;
78  for (i = 1; i < o->out->data[0][0]; i++ ) {
79    /* if current frame is a predicted tactus */
80    if (o->blockpos == FLOOR(o->out->data[0][i])) {
81      tempo->data[0][0] = 1. + o->out->data[0][i] - FLOOR(o->out->data[0][i]); /* set tactus */
82      /* test for silence */
83      if (aubio_silence_detection(input, o->silence)==1) {
84        tempo->data[0][1] = 0; /* unset onset */
85      }
86    }
87  }
88}
89
90uint_t aubio_tempo_set_silence(aubio_tempo_t * o, smpl_t silence) {
91  o->silence = silence;
92  return AUBIO_OK;
93}
94
95uint_t aubio_tempo_set_threshold(aubio_tempo_t * o, smpl_t threshold) {
96  o->threshold = threshold;
97  aubio_peakpicker_set_threshold(o->pp, o->threshold);
98  return AUBIO_OK;
99}
100
101/* Allocate memory for an tempo detection */
102aubio_tempo_t * new_aubio_tempo (char_t * onset_mode, 
103    uint_t buf_size, uint_t hop_size, uint_t channels, uint_t samplerate)
104{
105  aubio_tempo_t * o = AUBIO_NEW(aubio_tempo_t);
106  o->samplerate = samplerate;
107  o->winlen = SQR(512)/hop_size;
108  o->step = o->winlen/4;
109  o->blockpos = 0;
110  o->threshold = 0.3;
111  o->silence = -90.;
112  o->blockpos = 0;
113  o->dfframe  = new_fvec(o->winlen,channels);
114  o->fftgrain = new_cvec(buf_size, channels);
115  o->out      = new_fvec(o->step,channels);
116  o->pv       = new_aubio_pvoc(buf_size, hop_size, channels);
117  o->pp       = new_aubio_peakpicker(o->threshold);
118  o->od       = new_aubio_onsetdetection(onset_mode,buf_size,channels);
119  o->of       = new_fvec(1, channels);
120  o->bt       = new_aubio_beattracking(o->winlen,channels);
121  /*if (usedoubled)    {
122    o2 = new_aubio_onsetdetection(type_onset2,buffer_size,channels);
123    onset2 = new_fvec(1 , channels);
124  }*/
125  return o;
126}
127
128smpl_t aubio_tempo_get_bpm(aubio_tempo_t *o) {
129  return aubio_beattracking_get_bpm(o->bt);
130}
131
132smpl_t aubio_tempo_get_confidence(aubio_tempo_t *o) {
133  return aubio_beattracking_get_confidence(o->bt);
134}
135
136void del_aubio_tempo (aubio_tempo_t *o)
137{
138  del_aubio_onsetdetection(o->od);
139  del_aubio_beattracking(o->bt);
140  del_aubio_peakpicker(o->pp);
141  del_aubio_pvoc(o->pv);
142  del_fvec(o->out);
143  del_fvec(o->of);
144  del_cvec(o->fftgrain);
145  del_fvec(o->dfframe);
146  AUBIO_FREE(o);
147  return;
148}
Note: See TracBrowser for help on using the repository browser.