diff options
| author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2006-02-09 16:18:39 +0000 |
|---|---|---|
| committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2006-02-09 16:18:39 +0000 |
| commit | b418fb91e7bb45d7b5f1eb8b19703441ae94eb13 (patch) | |
| tree | 3f4a32d0b99d4ea0ac602bec59f0d2accba46719 /lib/leanconvert.c | |
got everything building and working, including building single-object/single-file objects with a shared dylib. Now got to get it integrated into the build systemsvn2git-root
svn path=/trunk/externals/fftease/; revision=4574
Diffstat (limited to 'lib/leanconvert.c')
| -rw-r--r-- | lib/leanconvert.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/leanconvert.c b/lib/leanconvert.c new file mode 100644 index 0000000..617c665 --- /dev/null +++ b/lib/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 |