nochmal c++ nach delphi

[sniper_w]

Delphi-Quellcode:

for i:=0 to 63 do
begin
//      /* X1[i] = X[2*i]  */
//      /* X2[i] = X[2*i+1]     */

      k := bit_reverse_256[i];

      p := (127 - (i shl 1)) shl 1;
      q := i shl 2;

//      /* Z1[i] = (X1[128-2*i-1] + j * X1[2*i]) * (xcos2[i] + j * xsin2[i]); */
      buf_1[k].real :=   data[p] * xcos2[i] - data[q] * xsin2[i];
      buf_1[k].imag := - data[q] * xcos2[i] - data[p] * xsin2[i];
//      /* Z2[i] = (X2[128-2*i-1] + j * X2[2*i]) * (xcos2[i] + j * xsin2[i]); */
      buf_2[k].real :=   data[p + 1] * xcos2[i] - data[q + 1] * xsin2[i];
      buf_2[k].imag := - data[q + 1] * xcos2[i] - data[p + 1] * xsin2[i];
end;