From 0182bbff2871114a4e93cc97942da621491f0e02 Mon Sep 17 00:00:00 2001
From: Thomas Grill <xovo@users.sourceforge.net>
Date: Tue, 7 Jan 2003 00:28:39 +0000
Subject:  ""

svn path=/trunk/; revision=325
---
 externals/grill/fftease/src/leanconvert.c | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 externals/grill/fftease/src/leanconvert.c

(limited to 'externals/grill/fftease/src/leanconvert.c')

diff --git a/externals/grill/fftease/src/leanconvert.c b/externals/grill/fftease/src/leanconvert.c
new file mode 100644
index 00000000..36b1452a
--- /dev/null
+++ b/externals/grill/fftease/src/leanconvert.c
@@ -0,0 +1,19 @@
+#include "pv.h"
+
+void leanconvert( float *S, float *C, int N2 )
+{
+
+ int		real, imag,
+		amp, phase;
+ float		a, b;
+  int		i;
+	
+ 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 );
+ }
+}
+
-- 
cgit v1.2.1