src/scale.c

   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 "aubio_priv.h"
  20 #include "sample.h"
  21 #include "scale.h"
  22
  23 struct _aubio_scale_t {
  24         smpl_t ilow;
  25         smpl_t ihig;
  26         smpl_t olow;
  27         smpl_t ohig;
  28
  29         smpl_t scaler;
  30         smpl_t irange;
  31
  32         /* not implemented yet : type in/out data
  33         bool inint;
  34         bool outint;
  35         */
  36 };
  37
  38
  39 /********************************************************
  40  * Object Memory Allocation
  41  */
  42
  43 static aubio_scale_t * aubio_scale_malloc(void);
  44 static void aubio_scale_free(aubio_scale_t * s);
  45
  46 aubio_scale_t * aubio_scale_malloc() {
  47         aubio_scale_t * s = AUBIO_NEW(aubio_scale_t);
  48         return s;
  49 }
  50
  51 void aubio_scale_free(aubio_scale_t * s) {
  52         AUBIO_FREE(s);
  53 }
  54
  55 /***
  56  * Object creation/deletion calls
  57  */
  58 aubio_scale_t * new_aubio_scale (smpl_t ilow, smpl_t ihig, smpl_t olow, smpl_t ohig     ){
  59         aubio_scale_t * s = aubio_scale_malloc();
  60         aubio_scale_set (s, ilow, ihig, olow, ohig);
  61         return s;
  62 }
  63
  64 void del_aubio_scale(aubio_scale_t *s) {
  65         aubio_scale_free(s);
  66 }
  67
  68 /***
  69  * set parmams
  70  */
  71 void aubio_scale_set (aubio_scale_t *s, smpl_t ilow, smpl_t ihig, smpl_t olow, smpl_t ohig)
  72 {
  73         smpl_t inputrange = ihig - ilow;
  74         smpl_t outputrange= ohig - olow;
  75         s->ilow = ilow;
  76         s->ihig = ihig;
  77         s->olow = olow;
  78         s->ohig = ohig;
  79         if (inputrange == 0 )
  80                 s->scaler = 0.0f;
  81         else {
  82                 s->scaler = outputrange/inputrange;
  83                 if (inputrange < 0 )
  84                         inputrange = inputrange * -1.0f;
  85         }
  86 }
  87
  88 /***
  89  * do it
  90  */
  91 void aubio_scale_do (aubio_scale_t *s, fvec_t *input)
  92 {
  93         uint_t i, j;
  94         for (i=0; i < input->channels; i++){
  95                 for (j=0;  j < input->length; j++){
  96                         input->data[i][j] -= s->ilow;
  97                         input->data[i][j] *= s->scaler;
  98                         input->data[i][j] += s->olow;
  99                 }
 100         }
 101 }
 102