DisplayFourierTransformation example for Visual Basic

Private Sub DisplayFT_Click()
Dim RasterProc As New LEADRasterProcess
Dim DisplayRaster As New LEADRaster
Dim MaxXHarmonic As Integer
Dim MaxYHarmonic As Integer

DisplayRaster = LEADRasterView1.Raster
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.DisplayFourierTransformation DisplayRaster, DSP_FT_MAG Or DSP_FT_LOG
LEADRasterView1.Raster = DisplayRaster
RasterProc.FreeFourierTransformation