FunctionalLight Example for Visual Basic

Dim RasterProc As New LEADRasterProcess

RasterProc.LightRedAmplitude = 75
RasterProc.LightGreenAmplitude = 90
RasterProc.LightBlueAmplitude = 0
RasterProc.LightAngle = 9000
RasterProc.LightFrequency = 10
RasterProc.LightPhase = 5000
RasterProc.LightFlags = FL_LINEAR_QUADRATIC Or FL_LINEAR_OUTER
RasterProc.LightXOrigin = LEADRasterView1.Raster.BitmapWidth / 2
RasterProc.LightYOrigin = LEADRasterView1.Raster.BitmapHeight / 2

RasterProc.FunctionalLight LEADRasterView1.Raster