source: src/tempo/tempo.c @ 0a257a6

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

src/tempo/tempo.{c,h}: setters to return unsigned ints

  • Property mode set to 100644
File size: 4.9 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};
46
47/* execute tempo detection function on iput buffer */
48void aubio_tempo_do(aubio_tempo_t *o, fvec_t * input, fvec_t * tempo)
49{
50  uint_t i;
51  uint_t winlen = o->winlen;
52  uint_t step   = o->step;
53  aubio_pvoc_do (o->pv, input, o->fftgrain);
54  aubio_onsetdetection_do (o->od, o->fftgrain, o->of);
55  /*if (usedoubled) {
56    aubio_onsetdetection_do(o2,fftgrain, onset2);
57    onset->data[0][0] *= onset2->data[0][0];
58  }*/
59  /* execute every overlap_size*step */
60  if (o->blockpos == (signed)step -1 ) {
61    /* check dfframe */
62    aubio_beattracking_do(o->bt,o->dfframe,o->out);
63    /* rotate dfframe */
64    for (i = 0 ; i < winlen - step; i++ ) 
65      o->dfframe->data[0][i] = o->dfframe->data[0][i+step];
66    for (i = winlen - step ; i < winlen; i++ ) 
67      o->dfframe->data[0][i] = 0.;
68    o->blockpos = -1;
69  }
70  o->blockpos++;
71  tempo->data[0][1] = aubio_peakpicker_do (o->pp, o->of);
72  o->dfframe->data[0][winlen - step + o->blockpos] = 
73    aubio_peakpicker_get_thresholded_input(o->pp);
74  /* end of second level loop */
75  tempo->data[0][0] = 0; /* reset tactus */
76  i=0;
77  for (i = 1; i < o->out->data[0][0]; i++ ) {
78    /* if current frame is a predicted tactus */
79    if (o->blockpos == FLOOR(o->out->data[0][i])) {
80      tempo->data[0][0] = 1. + o->out->data[0][i] - FLOOR(o->out->data[0][i]); /* set tactus */
81      /* test for silence */
82      if (aubio_silence_detection(input, o->silence)==1) {
83        tempo->data[0][1] = 0; /* unset onset */
84      }
85    }
86  }
87}
88
89uint_t aubio_tempo_set_silence(aubio_tempo_t * o, smpl_t silence) {
90  o->silence = silence;
91  return AUBIO_OK;
92}
93
94uint_t aubio_tempo_set_threshold(aubio_tempo_t * o, smpl_t threshold) {
95  o->threshold = threshold;
96  aubio_peakpicker_set_threshold(o->pp, o->threshold);
97  return AUBIO_OK;
98}
99
100/* Allocate memory for an tempo detection */
101aubio_tempo_t * new_aubio_tempo (char_t * onset_mode, 
102    uint_t buf_size, uint_t hop_size, uint_t channels)
103{
104  aubio_tempo_t * o = AUBIO_NEW(aubio_tempo_t);
105  o->winlen = SQR(512)/hop_size;
106  o->step = o->winlen/4;
107  o->blockpos = 0;
108  o->threshold = 0.3;
109  o->silence = -90;
110  o->blockpos = 0;
111  o->dfframe  = new_fvec(o->winlen,channels);
112  o->fftgrain = new_cvec(buf_size, channels);
113  o->out      = new_fvec(o->step,channels);
114  o->pv       = new_aubio_pvoc(buf_size, hop_size, channels);
115  o->pp       = new_aubio_peakpicker(o->threshold);
116  o->od       = new_aubio_onsetdetection(onset_mode,buf_size,channels);
117  o->of       = new_fvec(1, channels);
118  o->bt       = new_aubio_beattracking(o->winlen,channels);
119  /*if (usedoubled)    {
120    o2 = new_aubio_onsetdetection(type_onset2,buffer_size,channels);
121    onset2 = new_fvec(1 , channels);
122  }*/
123  return o;
124}
125
126smpl_t aubio_tempo_get_bpm(aubio_tempo_t *o) {
127  return aubio_beattracking_get_bpm(o->bt);
128}
129
130smpl_t aubio_tempo_get_confidence(aubio_tempo_t *o) {
131  return aubio_beattracking_get_confidence(o->bt);
132}
133
134void del_aubio_tempo (aubio_tempo_t *o)
135{
136  del_aubio_onsetdetection(o->od);
137  del_aubio_beattracking(o->bt);
138  del_aubio_peakpicker(o->pp);
139  del_aubio_pvoc(o->pv);
140  del_fvec(o->out);
141  del_fvec(o->of);
142  del_cvec(o->fftgrain);
143  del_fvec(o->dfframe);
144  AUBIO_FREE(o);
145  return;
146}
Note: See TracBrowser for help on using the repository browser.