FastFourierTransformation example for Visual Basic

Dim RasterProc As New LEADRasterProcess

RasterProc.Size LEADRasterView1.Raster, 256, 512, RESIZE_BICUBIC
RasterProc.InitFourierTransformation LEADRasterView1.Raster
' Apply FFT
RasterProc.FastFourierTransformation LEADRasterView1.Raster, FFT_FFT Or FFT_GRAY

' Free FFT buffer
RasterProc.FreeFourierTransformation
End Sub