CLAM-Development  1.4.0
SpectralShapeShift.cxx
Go to the documentation of this file.
1 /*
2  * Copyright (c) 2001-2004 MUSIC TECHNOLOGY GROUP (MTG)
3  * UNIVERSITAT POMPEU FABRA
4  *
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19  *
20  */
21 
22 #include "SpectralShapeShift.hxx"
23 #include "ProcessingFactory.hxx"
24 
25 namespace CLAM
26 {
27 namespace Hidden
28 {
29  static const char * metadata[] = {
30  "key", "SpectralShapeShift",
31  // "category", "Spectral Transformations",
32  // "description", "SpectralShapeShift",
33  0
34  };
35  static FactoryRegistrator<ProcessingFactory, SpectralShapeShift> reg = metadata;
36 }
37 
39  inSpec,Spectrum& outSpec)
40 {
41 
42  if (!mConfig.GetPreserveOuts())
43  {
44  outSpec = inSpec; //TODO big cludge for streaming
45  }
46 
47  mLogSpectrum = inSpec;
48  mLogSpectrum.ToDB();
49 
50  mSpectralEnvelope.SetSpectralRange(mSpectralRange);
51 
52  mSpectralPeakDetect.Do(mLogSpectrum, mSpectralPeaks);
53  mSpectralEnvelopeExtract.Do(mSpectralPeaks,mSpectralEnvelope);
54 
55  TData amount = mSteps.GetLastValue();
56 
57  //Shift spectral shape
58  BPF& magBPF=mSpectralEnvelope.GetMagBPF();
59  int nPoints=magBPF.Size();
60  if(nPoints>2)
61  {
63  for(int i=0;i<nPoints;i++)
64  {
65  magBPF.SetXValue(i, magBPF.GetXValue(i)+amount);
66  }
67  //magBPF.UpdateSplineTable();
68  //Apply new spectral shape
69  outSpec.ToDB();
70  mSpectralEnvelopeApply.Do(mLogSpectrum,mSpectralEnvelope,outSpec);
71  outSpec.ToLinear();
72  }
73  return true;
74 }
75 
76 
77 }
78