Dim I As Int
'With Transform and Inverse
Dim AUDIO_REAL(8) As Double
Dim AUDIO_IMAG(8) As Double
AUDIO_REAL(0) = 76
AUDIO_REAL(1) = 23
AUDIO_REAL(2) = 2
AUDIO_REAL(3) = 56
AUDIO_REAL(4) = 8
AUDIO_REAL(5) = 75
AUDIO_REAL(6) = 2
AUDIO_REAL(7) = 44
FFT.Transform(AUDIO_REAL, AUDIO_IMAG)
FFT.Inverse(AUDIO_REAL, AUDIO_IMAG)
Log("With Transform and Inverse")
For I = 0 To 7
Log(AUDIO_REAL(I)) 'Data is the same as it went in
Next
'With Transform2 and Inverse2
Dim AUDIO(8) As Double
Dim FFT_REAL(4) As Double
Dim FFT_IMAG(4) As Double
AUDIO(0) = 76
AUDIO(1) = 23
AUDIO(2) = 2
AUDIO(3) = 56
AUDIO(4) = 8
AUDIO(5) = 75
AUDIO(6) = 2
AUDIO(7) = 44
FFT.Transform2(AUDIO, FFT_REAL, FFT_IMAG)
FFT.Inverse2(FFT_REAL, FFT_IMAG, AUDIO)
Log("With Transform2 and Inverse2")
For I = 0 To 7
Log(AUDIO(I)) 'Data is different than it went in
Next