Public Function New( _
   ByVal horizontalScratchCount As Integer, _
   ByVal verticalScratchCount As Integer, _
   ByVal maximumScratchLength As Integer, _
   ByVal dustDensity As Integer, _
   ByVal pitsDensity As Integer, _
   ByVal maximumPitSize As Integer, _
   ByVal scratchColor As RasterColor, _
   ByVal dustColor As RasterColor, _
   ByVal pitsColor As RasterColor, _
   ByVal flags As AgingCommandFlags _
)

Dim horizontalScratchCount As Integer
Dim verticalScratchCount As Integer
Dim maximumScratchLength As Integer
Dim dustDensity As Integer
Dim pitsDensity As Integer
Dim maximumPitSize As Integer
Dim scratchColor As RasterColor
Dim dustColor As RasterColor
Dim pitsColor As RasterColor
Dim flags As AgingCommandFlags
 
Dim instance As New AgingCommand(horizontalScratchCount, verticalScratchCount, maximumScratchLength, dustDensity, pitsDensity, maximumPitSize, scratchColor, dustColor, pitsColor, flags)

public AgingCommand( 
   int horizontalScratchCount,
   int verticalScratchCount,
   int maximumScratchLength,
   int dustDensity,
   int pitsDensity,
   int maximumPitSize,
   RasterColor scratchColor,
   RasterColor dustColor,
   RasterColor pitsColor,
   AgingCommandFlags flags
)

public:
AgingCommand( 
   int horizontalScratchCount,
   int verticalScratchCount,
   int maximumScratchLength,
   int dustDensity,
   int pitsDensity,
   int maximumPitSize,
   RasterColor scratchColor,
   RasterColor dustColor,
   RasterColor pitsColor,
   AgingCommandFlags flags
)

Public Sub AgingConstructorExample()
   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 AgingCommand
   command = New AgingCommand(10, 2, 50, 2, 5, 6, New RasterColor(255, 255, 0), New RasterColor(0, 0, 0), New RasterColor(0, 0, 255), AgingCommandFlags.AddVerticalScratch Or AgingCommandFlags.AddPits Or AgingCommandFlags.ScratchInverse Or AgingCommandFlags.PitsColor)

   ' Apply aging effect.
   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 AgingConstructorExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

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

      // Prepare the command
      AgingCommand command = new AgingCommand(10, 2, 50, 2, 5, 6,
         new RasterColor(255, 255, 0),
         new RasterColor(0, 0, 0),
         new RasterColor(0, 0, 255),
         AgingCommandFlags.AddVerticalScratch | AgingCommandFlags.AddPits | AgingCommandFlags.ScratchInverse | AgingCommandFlags.PitsColor);

      // Apply aging effect.
      command.Run(image);
      codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24);

   }

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