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 /leanconvert.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 'leanconvert.c')
| -rw-r--r-- | leanconvert.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/leanconvert.c b/leanconvert.c new file mode 100644 index 0000000..617c665 --- /dev/null +++ b/leanconvert.c @@ -0,0 +1 @@ +#include "fftease.h"
void leanconvert( float *S, float *C, int N2 )
{
int real, imag,
amp, phase;
float a, b;
int i;
double hypot(), atan2();
for ( i = 0; i <= N2; i++ ) {
imag = phase = ( real = amp = i<<1 ) + 1;
a = ( i == N2 ? S[1] : S[real] );
b = ( i == 0 || i == N2 ? 0. : S[imag] );
C[amp] = hypot( a, b );
C[phase] = -atan2( b, a );
}
}
\ No newline at end of file |