Halftone Example for Visual Basic
Dim Raster As New LEADRaster
Dim RasterProc As New LEADRasterProcess
Dim iDim As Integer
Dim i As Integer
iDim = 5
For i = 0 To 25
Raster.Bitmap = LEADRasterView1.Raster.Bitmap
RasterProc.Rotate Raster, 360 * i, 0, RGB(255, 0, 0)
LEADRasterView1.Raster.InsertBitmapListItem -1, Raster.Bitmap
Next i
RasterProc.HalfTone LEADRasterView1.Raster, HALFTONE_USERDEF, 0, iDim