CorrelationList Example for Visual Basic
Dim iListCount As Integer
Dim iListIndex As Integer
Dim iListMaxPoints As Integer
Dim i As Integer
Dim c As Integer
Raster2.Bitmap = 0
For i = 0 To 4
Raster2.Bitmap = LEADRasterView1.Raster.Bitmap
RasterProc.Rotate Raster2, 7200 * i, 0, RGB(255, 0, 0)
LEADRasterView2.Raster.InsertBitmapListItem -1, Raster2.Bitmap
Next i
RasterProc.CorrelationListMaxPoints = 90
RasterProc.CorrelationList LEADRasterView2.Raster, 1, 2, 10
iListCount = RasterProc.CorrelationListCount
iListMaxPoints = RasterProc.CorrelationListMaxPoints
For c = 0 To iListCount
iListIndex = RasterProc.CorrelationListIndex(c)
MsgBox "X = " + Str(RasterProc.CorrelationListX(iListIndex)) + Chr$(13) + _
"Y = " + Str(RasterProc.CorrelationListY(iListIndex)) + Chr$(13)
Next c