File: unconvert.c

package info (click to toggle)
pd-lyonpotpourri 2.0%2Bgit20121009-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, stretch
  • size: 2,920 kB
  • ctags: 1,880
  • sloc: ansic: 18,330; makefile: 364
file content (34 lines) | stat: -rw-r--r-- 493 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
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 );

    }

}