Public Class PerlinCommand 
   Inherits Leadtools.ImageProcessing.RasterCommand
   Implements IRasterCommand 

Dim instance As PerlinCommand

public class PerlinCommand : Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

public ref class PerlinCommand : public Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

Public Sub PerlinCommandExample()
   Dim codecs As New RasterCodecs()
   codecs.ThrowExceptionsOnInvalidImages = True

   Dim leadImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"))

   ' Prepare the command
   Dim command As PerlinCommand = New PerlinCommand
   Dim backColor As New RasterColor(0, 0, 0)
   Dim perlinColor As New RasterColor(0, 255, 0)

   command.Seed = 0
   command.Frequency = 16
   command.Iteration = 8
   command.Opacity = 75
   command.Backcolor = backColor
   command.PerlinColor = perlinColor
   command.XCircle = CInt(leadImage.Width / 2)
   command.YCircle = CInt(leadImage.Height / 2)
   command.FreqLayout = 50
   command.DenLayout = 1
   command.PerlinFlags = NoiseLayoutType.PF_Combine Or NoiseLayoutType.PF_Circle
   command.Run(leadImage)
   codecs.Save(leadImage, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24)

End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void PerlinCommandExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));

      // Prepare the command
      PerlinCommand command = new PerlinCommand () ;
      RasterColor backColor   = new RasterColor (0, 0, 0);
      RasterColor perlinColor = new RasterColor (255, 0, 0);
      command.Seed = 0;
      command.Frequency = 16;
      command.Iteration = 8;
      command.Opacity = 75;
      command.Backcolor = backColor;
      command.PerlinColor = perlinColor;
      command.XCircle= image.Width / 2;
      command.YCircle = image.Height / 2;
      command.FreqLayout = 50;
      command.DenLayout = 1;
      command.PerlinFlags = NoiseLayoutType.PF_Difference | NoiseLayoutType.PF_Circle;
      command.Run (image);

   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}