Perlin Example for Visual Basic

    Dim XCircle As Integer
    Dim YCircle As Integer
    Dim RasterProc As New LEADRasterProcess
    XCircle = LEADRasterView1.Raster.BitmapWidth / 2
    YCircle = LEADRasterView1.Raster.BitmapHeight / 2
    RasterProc.Perlin LEADRasterView1.Raster, _
    0, _
    10, _
    8, _
    50, _
    RGB(0, 0, 0), _
    RGB(255, 0, 0), _
    XCircle, _
    YCircle, _
    4, _
    20, _
    PRL_PURE Or _
    PRL_CIRCLE