Copyright (C) 2007-2009 Paul Brossier <piem@aubio.org>
and Amaury Hazan <ahazan@iua.upf.edu>
- This file is part of Aubio.
+ This file is part of aubio.
- Aubio is free software: you can redistribute it and/or modify
+ aubio is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
- Aubio is distributed in the hope that it will be useful,
+ aubio is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
- along with Aubio. If not, see <http://www.gnu.org/licenses/>.
+ along with aubio. If not, see <http://www.gnu.org/licenses/>.
*/
#include "aubio_priv.h"
#include "fvec.h"
+#include "fmat.h"
#include "cvec.h"
+#include "vecutils.h"
#include "spectral/filterbank.h"
#include "mathutils.h"
-#define VERY_SMALL_NUMBER 2e-42
-
/** \brief A structure to store a set of n_filters filters of lenghts win_s */
-struct aubio_filterbank_t_
+struct _aubio_filterbank_t
{
uint_t win_s;
uint_t n_filters;
- fvec_t *filters;
+ fmat_t *filters;
+ smpl_t norm;
+ smpl_t power;
};
aubio_filterbank_t *
{
/* allocate space for filterbank object */
aubio_filterbank_t *fb = AUBIO_NEW (aubio_filterbank_t);
+
+ if ((sint_t)n_filters <= 0) {
+ AUBIO_ERR("filterbank: n_filters should be > 0, got %d\n", n_filters);
+ goto fail;
+ }
+ if ((sint_t)win_s <= 0) {
+ AUBIO_ERR("filterbank: win_s should be > 0, got %d\n", win_s);
+ goto fail;
+ }
fb->win_s = win_s;
fb->n_filters = n_filters;
- /* allocate filter tables, an fvec of length win_s and of filter_cnt channel */
- fb->filters = new_fvec (win_s / 2 + 1, n_filters);
+ /* allocate filter tables, a matrix of length win_s and of height n_filters */
+ fb->filters = new_fmat (n_filters, win_s / 2 + 1);
+
+ fb->norm = 1;
+
+ fb->power = 1;
return fb;
+fail:
+ AUBIO_FREE (fb);
+ return NULL;
}
void
del_aubio_filterbank (aubio_filterbank_t * fb)
{
- del_fvec (fb->filters);
+ del_fmat (fb->filters);
AUBIO_FREE (fb);
}
void
-aubio_filterbank_do (aubio_filterbank_t * f, cvec_t * in, fvec_t * out)
+aubio_filterbank_do (aubio_filterbank_t * f, const cvec_t * in, fvec_t * out)
{
- uint_t i, j, fn;
-
/* apply filter to all input channel, provided out has enough channels */
- uint_t max_channels = MIN (in->channels, out->channels);
- uint_t max_filters = MIN (f->n_filters, out->length);
+ //uint_t max_filters = MIN (f->n_filters, out->length);
+ //uint_t max_length = MIN (in->length, f->filters->length);
- /* reset all values in output vector */
- fvec_zeros (out);
+ // view cvec->norm as fvec->data
+ fvec_t tmp;
+ tmp.length = in->length;
+ tmp.data = in->norm;
- /* apply filters on all channels */
- for (i = 0; i < max_channels; i++) {
+ if (f->power != 1.) fvec_pow(&tmp, f->power);
- /* for each filter */
- for (fn = 0; fn < max_filters; fn++) {
+ fmat_vecmul(f->filters, &tmp, out);
- /* for each sample */
- for (j = 0; j < in->length; j++) {
- out->data[i][fn] += in->norm[i][j] * f->filters->data[fn][j];
- }
+ return;
+}
- /* threshold to VERY_SMALL_NUMBER to avoid log oveflow */
- out->data[i][fn] = MAX (VERY_SMALL_NUMBER, out->data[i][fn]);
+fmat_t *
+aubio_filterbank_get_coeffs (const aubio_filterbank_t * f)
+{
+ return f->filters;
+}
- /* compute logarithm */
- out->data[i][fn] = LOG10 (out->data[i][fn]);
- }
- }
+uint_t
+aubio_filterbank_set_coeffs (aubio_filterbank_t * f, const fmat_t * filter_coeffs)
+{
+ fmat_copy(filter_coeffs, f->filters);
+ return 0;
+}
- return;
+uint_t
+aubio_filterbank_set_norm (aubio_filterbank_t *f, smpl_t norm)
+{
+ if (norm != 0 && norm != 1) return AUBIO_FAIL;
+ f->norm = norm;
+ return AUBIO_OK;
}
-fvec_t *
-aubio_filterbank_get_coeffs (aubio_filterbank_t * f)
+smpl_t
+aubio_filterbank_get_norm (aubio_filterbank_t *f)
{
- return f->filters;
+ return f->norm;
+}
+
+uint_t
+aubio_filterbank_set_power (aubio_filterbank_t *f, smpl_t power)
+{
+ f->power = power;
+ return AUBIO_OK;
+}
+
+smpl_t
+aubio_filterbank_get_power (aubio_filterbank_t *f)
+{
+ return f->power;
}