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