[PD-cvs] externals/tbext/source rifftw~.cpp,NONE,1.1

[timblech at users.sourceforge.net]

Update of /cvsroot/pure-data/externals/tbext/source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4891/source

Added Files:
	rifftw~.cpp 
Log Message:


--- NEW FILE: rifftw~.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.                   */
/*                                                                              */
/*                                                                              */
/* rifftw~ is doing the same as rifft~, but it's based on the fftw library,     */
/* that is much faster that pd's internal fft ...                               */
/*                                                                              */
/*                                                                              */
/* rifftw~ 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: Caged/Uncaged                                      */
/*                           Sunny Murray: Hommage To Africa                    */
/*                                                                              */
/*                                                                              */



#include <flext.h>

#include "fftw3.h"
#include <algorithm>

#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 401)
#error upgrade your flext version!!!!!!
#endif

class rifftw: public flext_dsp
{
  FLEXT_HEADER(rifftw,flext_dsp);

public: // constructor
  rifftw();
  ~rifftw();

protected:
  virtual void m_signal (int n, float *const *in, float *const *out);
  
  fftwf_plan p;    //fftw plan
  int bins;        //number of bins
  float * inreal; //pointer to real input
  float * inimag; //pointer to imaginary input
  
  fftwf_complex * incomplex;

  //float * infft;   //array fftw is working on
  float * outfft;  //array fftw uses to output it's values
  

 private:
};


FLEXT_LIB_DSP("rifftw~",rifftw);

rifftw::rifftw()
  :bins(64)
{
  //get ready for the default blocksize
  //  infft = fftwf_malloc(sizeof(float) * bins);
  outfft = fftwf_malloc(sizeof(float) * bins);


  incomplex = fftwf_malloc(sizeof(fftwf_complex) * bins);


  //  p=fftwf_plan_r2r_1d(bins,infft,outfft,FFTW_BACKWARD,FFTW_MEASURE);
  p=fftwf_plan_dft_c2r_1d(bins,incomplex,outfft,FFTW_BACKWARD,FFTW_MEASURE);
  
  AddInSignal();
  AddInSignal();
  AddOutSignal();
} 

rifftw::~rifftw()
{
  //  fftwf_free(infft);
  fftwf_free(outfft);
  fftwf_free(incomplex);
  fftwf_destroy_plan(p);
} 


void rifftw::m_signal(int n, float *const *in, float *const *out)
{
  //set output pointers
  inreal = in[0];
  inimag = in[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);

      fftwf_free(incomplex);
      incomplex = fftwf_malloc(sizeof(fftwf_complex) * 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_BACKWARD,FFTW_MEASURE);
      p=fftwf_plan_dft_c2r_1d(bins,incomplex,outfft,FFTW_BACKWARD,FFTW_MEASURE);

  }

  //Copy samples to the fft
  //  CopySamples(infft,inreal,n/2);
  //  std::reverse_copy(inimag,inimag+n/2,infft+n/2);
  
  
  /*
  //why do we have to invert the samples???
    for (int i = n/2+1; i!=n;++i)
    {
      *(infft+i)=-*(infft+i);
    }
  */

  for (int i=0;i!=n/2;++i)
    {
      incomplex[i][0]=inreal[i];
      incomplex[i][1]=-inimag[i];
    }

  //execute
  fftwf_execute(p);

  CopySamples(out[0],outfft,n);

}