FreeHandWave Example for Visual Basic

Dim RasterProc As New LEADRasterProcess

RasterProc.AmplitudesCount = 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.FreeHandWave LEADRasterView1.Raster, 100, 10, 0, RGB(0, 0, 0),  _
FILL_RPT  Or DIS_FRQ