[PD-cvs] externals/tbext/source rfftw~.cpp,NONE,1.1
timblech at users.sourceforge.net
timblech at users.sourceforge.net
Sun Feb 29 14:51:53 CET 2004
Update of /cvsroot/pure-data/externals/tbext/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3815/source
Added Files:
rfftw~.cpp
Log Message:
--- NEW FILE: rfftw~.cpp ---
/* Copyright (c) 2004 Tim Blechmann. */
/* For information on usage and redistribution, and for a DISCLAIMER OF ALL */
/* WARRANTIES, see the file, "COPYING" in this distribution. */
/* */
/* */
/* rfftw~ is doing the same as rfft~, but it's based on the fftw library, */
/* that is much faster that pd's internal fft ... */
/* */
/* */
/* rfftw~ uses the flext C++ layer for Max/MSP and PD externals. */
/* get it at http://www.parasitaere-kapazitaeten.de/PD/ext */
/* thanks to Thomas Grill */
/* */
/* */
/* */
/* This program 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 2 */
/* of the License, or (at your option) any later version. */
/* */
/* See file LICENSE for further informations on licensing terms. */
/* */
/* This program 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 this program; if not, write to the Free Software */
/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
/* */
/* Based on PureData by Miller Puckette and others. */
/* */
/* */
/* */
/* coded while listening to: Wolfgang Mitterer: Radiofractal & Beat Music */
/* Sun Ra: Reflections In Blue */
/* */
/* */
#include <flext.h>
#include "fftw3.h"
#include <algorithm>
#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 401)
#error upgrade your flext version!!!!!!
#endif
class rfftw: public flext_dsp
{
FLEXT_HEADER(rfftw,flext_dsp);
public: // constructor
rfftw();
~rfftw();
protected:
virtual void m_signal (int n, float *const *in, float *const *out);
fftwf_plan p; //fftw plan
int bins; //number of bins
float * outreal; //pointer to real output
float * outimag; //pointer to imaginary output
float * infft; //array fftw is working on
float * outfft; //array fftw uses to output it's values
private:
};
FLEXT_LIB_DSP("rfftw~",rfftw);
rfftw::rfftw()
:bins(64)
{
//get ready for the default blocksize
infft = fftwf_malloc(sizeof(float) * bins);
outfft = fftwf_malloc(sizeof(float) * bins);
p=fftwf_plan_r2r_1d(bins,infft,outfft,FFTW_FORWARD,FFTW_MEASURE);
AddInSignal();
AddOutSignal();
AddOutSignal();
}
rfftw::~rfftw()
{
fftwf_free(infft);
fftwf_free(outfft);
fftwf_destroy_plan(p);
}
void rfftw::m_signal(int n, float *const *in, float *const *out)
{
//set output pointers
outreal = out[0];
outimag = out[1];
//if blocksize changed, we have to set a new plan for the fft
if (n!=bins)
{
bins=n;
//re-allocate fft buffers
fftwf_free(infft);
infft = fftwf_malloc(sizeof(float) * bins);
fftwf_free(outfft);
outfft = fftwf_malloc(sizeof(float) * bins);
//set plan, this might take a few seconds
//but you don't have to do that on the fly...
fftwf_destroy_plan(p);
p=fftwf_plan_r2r_1d(bins,infft,outfft,FFTW_FORWARD,FFTW_MEASURE);
}
CopySamples(infft,in[0],n);
//execute
fftwf_execute(p);
//Copy samples to outlets
CopySamples(outreal,outfft,n/2);
std::reverse_copy(outfft+n/2+1,outfft+n,outimag+1);
//why do we have to invert the samples???
for (int i = n/2+1; i!=0;--i)
{
*(outimag+i)=-*(outimag+i);
}
}
More information about the Pd-cvs
mailing list