diff options
| author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2012-10-04 22:24:37 +0000 |
|---|---|---|
| committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2012-10-04 22:24:37 +0000 |
| commit | 84231a000a4f06e34efa0d3700377dd3cc447e0b (patch) | |
| tree | 9cec4db39062de619d61c9197fa7dfc5708bc059 /leanunconvert.c | |
| parent | b418fb91e7bb45d7b5f1eb8b19703441ae94eb13 (diff) | |
took FFTease2.5_Pd_OSX.zip and unpacked it into a Library Template layout
original source:
http://www.somasa.qub.ac.uk/~elyon/LyonSoftware/MaxMSP/FFTease/FFTease2.5_Pd_OSX.zip
svn path=/trunk/externals/fftease/; revision=16331
Diffstat (limited to 'leanunconvert.c')
| -rw-r--r-- | leanunconvert.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/leanunconvert.c b/leanunconvert.c new file mode 100644 index 0000000..4880729 --- /dev/null +++ b/leanunconvert.c @@ -0,0 +1 @@ +#include "fftease.h"
/* unconvert essentially undoes what convert does, i.e., it
turns N2+1 PAIRS of amplitude and frequency values in
C into N2 PAIR of complex spectrum data (in rfft format)
in output array S; sampling rate R and interpolation factor
I are used to recompute phase values from frequencies */
void leanunconvert( float *C, float *S, int N2 )
{
double cos(), sin();
int real, imag,
amp, phase;
register int i;
for ( i = 0; i <= N2; i++ ) {
imag = phase = ( real = amp = i<<1 ) + 1;
S[real] = *(C+amp) * cos( *(C+phase) );
if ( i != N2 )
S[imag] = -*(C+amp) * sin( *(C+phase) );
}
}
\ No newline at end of file |