aboutsummaryrefslogtreecommitdiff
path: root/lib/unconvert.c
blob: 85392dd7196c1a8ccedc82e796932c8b666528a0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#include "fftease.h"



void unconvert( float *C, float *S, int N2, float *lastphase, float fundamental, float factor )

{
  int 		i,
		real,
		imag,
		amp,
		freq;
  float 	mag,
		phase;
double sin(), cos();

    for ( i = 0; i <= N2; i++ ) {

	imag = freq = ( real = amp = i<<1 ) + 1;

	if ( i == N2 )
	  real = 1;

	mag = C[amp];
	lastphase[i] += C[freq] - i*fundamental;
	phase = lastphase[i]*factor;
	S[real] = mag*cos( phase );

	if ( i != N2 )
	  S[imag] = -mag*sin( phase );

    }

}