39dfa5da4f61b33fe01a74df55838da8440d51ab
[aubio.git] / src / spectral / filterbank.c
1 /*
2   Copyright (C) 2007-2009 Paul Brossier <piem@aubio.org>
3                       and Amaury Hazan <ahazan@iua.upf.edu>
4
5   This file is part of aubio.
6
7   aubio is free software: you can redistribute it and/or modify
8   it under the terms of the GNU General Public License as published by
9   the Free Software Foundation, either version 3 of the License, or
10   (at your option) any later version.
11
12   aubio is distributed in the hope that it will be useful,
13   but WITHOUT ANY WARRANTY; without even the implied warranty of
14   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15   GNU General Public License for more details.
16
17   You should have received a copy of the GNU General Public License
18   along with aubio.  If not, see <http://www.gnu.org/licenses/>.
19
20 */
21
22 #include "aubio_priv.h"
23 #include "fvec.h"
24 #include "fmat.h"
25 #include "cvec.h"
26 #include "spectral/filterbank.h"
27 #include "mathutils.h"
28
29 /** \brief A structure to store a set of n_filters filters of lenghts win_s */
30 struct _aubio_filterbank_t
31 {
32   uint_t win_s;
33   uint_t n_filters;
34   fmat_t *filters;
35 };
36
37 aubio_filterbank_t *
38 new_aubio_filterbank (uint_t n_filters, uint_t win_s)
39 {
40   /* allocate space for filterbank object */
41   aubio_filterbank_t *fb = AUBIO_NEW (aubio_filterbank_t);
42   fb->win_s = win_s;
43   fb->n_filters = n_filters;
44
45   /* allocate filter tables, a matrix of length win_s and of height n_filters */
46   fb->filters = new_fmat (win_s / 2 + 1, n_filters);
47
48   return fb;
49 }
50
51 void
52 del_aubio_filterbank (aubio_filterbank_t * fb)
53 {
54   del_fmat (fb->filters);
55   AUBIO_FREE (fb);
56 }
57
58 void
59 aubio_filterbank_do (aubio_filterbank_t * f, cvec_t * in, fvec_t * out)
60 {
61   uint_t j, fn;
62
63   /* apply filter to all input channel, provided out has enough channels */
64   uint_t max_filters = MIN (f->n_filters, out->length);
65   uint_t max_length = MIN (in->length, f->filters->length);
66
67   /* reset all values in output vector */
68   fvec_zeros (out);
69
70   /* for each filter */
71   for (fn = 0; fn < max_filters; fn++) {
72     /* for each sample */
73     for (j = 0; j < max_length; j++) {
74       out->data[fn] += in->norm[j] * f->filters->data[fn][j];
75     }
76   }
77
78   return;
79 }
80
81 fmat_t *
82 aubio_filterbank_get_coeffs (aubio_filterbank_t * f)
83 {
84   return f->filters;
85 }
86
87 uint_t
88 aubio_filterbank_set_coeffs (aubio_filterbank_t * f, fmat_t * filter_coeffs)
89 {
90   fmat_copy(filter_coeffs, f->filters);
91   return 0;
92 }