FreePlaneBend Example for Visual Basic

Dim RasterProc As New LEADRasterProcess

RasterProc.UserLUTCurveSize = 4

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(3) = 12
RasterProc.UserLUTCurveY(3) = 0

RasterProc.GetCurvePoints GUB_LINEAR
RasterProc.FreePlaneBend LEADRasterView1.Raster, 200, RGB(255, 0, 0), FILL_CLR + _ FPB_VERT