FreeRadBend Example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim CenterX, CenterY As Integer
CenterX = LEADRasterView1.Raster.BitmapWidth / 2
CenterY = LEADRasterView1.Raster.BitmapHeight / 2

RasterProc.UserLUTCurveSize = 3

RasterProc.UserLUTCurveX(0) = 0
RasterProc.UserLUTCurveY(0) = 0

RasterProc.UserLUTCurveX(1) = 3
RasterProc.UserLUTCurveY(1) = 10

RasterProc.UserLUTCurveX(2) = 9
RasterProc.UserLUTCurveY(2) = -10

RasterProc.UserLUTCurveX(2) = 12
RasterProc.UserLUTCurveY(2) = 0

RasterProc.GetCurvePoints GUB_LINEAR

RasterProc.FreeRadBend LEADRasterView1.Raster, 200, CenterX, CenterY,  _
RGB(255, 0, 0), FILL_CLR + FILL_ROT