Zitat von
Newbie44:
DAs hauptproblem dabei ist für mich dieser absatz:
Code:
void imdct_init()
{
int i, k;
complex_t angle_step;
complex_t current_angle;
/* Twiddle factors to turn IFFT into IMDCT */
for(i=0; i<128; i++)
{
//...
Delphi-Quellcode:
procedure imdct_init;
var
i, k: Integer;
angle_step: complex_t;
current_angle: complex_t;
begin
(* Twiddle factors to turn IFFT into IMDCT *)
for i := 0 to 127 do
begin
//...
Der Rest ist selbsterklärend.