PlaneBend Example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim CenterX, CenterY As Integer

CenterX = LEADRasterView1.Raster.BitmapWidth
CenterY = LEADRasterView1.Raster.BitmapHeight / 2

RasterProc.PlaneBend LEADRasterView1.Raster, CenterX, CenterY, 0, _
CenterY * 2, CenterX / 2, -1, 0, 100, 400, 0, 100, 20000, RGB(255, 0, 0), RGB(0, 0, 0), _
 PLANE_DOWN OR PLANE_UP + PLANE_FILL_CLR