aboutsummaryrefslogtreecommitdiff
path: root/leanconvert.c
diff options
context:
space:
mode:
Diffstat (limited to 'leanconvert.c')
-rw-r--r--leanconvert.c1
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