DiscreteFourierTransformation example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim MaxXHarmonic As Integer
Dim MaxYHarmonic As Integer

RasterProc.InitFourierTransformation LEADRasterView1.Raster
MaxXHarmonic = LEADRasterView1.Raster.BitmapWidth / 4
MaxYHarmonic = LEADRasterView1.Raster.BitmapHeight / 2

RasterProc.DiscreteFourierTransformation LEADRasterView1.Raster, _
                                          0, _
                                          MaxXHarmonic, _
                                          0, _
                                          MaxYHarmonic, _
                                          DFT_DFT Or _
                                          DFT_GRAY Or _
                                          DFT_RANGE Or _
                                          DFT_INSIDE_X Or _
                                          DFT_OUTSIDE_Y

RasterProc.FreeFourierTransformation