File: leanconvert.c

package info (click to toggle)
pd-fftease 2.5.2.git20121005-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster
  • size: 1,120 kB
  • sloc: ansic: 17,044; makefile: 376; perl: 80
file content (21 lines) | stat: -rw-r--r-- 378 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#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 );
 }
}