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 _
)

Visual Basic (Usage)

Copy Code

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 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
)

Parameters

horizontalScratchCount

Number of horizontal scratch lines. This parameter only accepts positive values.

verticalScratchCount

Number of vertical scratch lines. This parameter only accepts positive values.

maximumScratchLength

Maximum scratch line length, in pixels. Its minimum value is 2.

dustDensity

Dust density, expressed in tenths of a percent of the image area. Valid values range between 0 and 1000. This value is divided internally by 10. If uDustDen = 1000 then dust density = 100% (that is, the number of dust points = the entire image area.)

pitsDensity

Density of the pits, expressed in tenths of percent of the image area. Valid values range between 0 and 1000. This value is divided internally by 10. If PitsDensity = 1000 then the density of the pits = 100% (that is, the number of pits = the entire image area.)

maximumPitSize

Maximum pit size, in pixels. The size of the pits will be selected at random between 1 and MaximumPitSize.

scratchColor

Represents the color of the scratch lines.

dustColor

Represents the color of the dust.

pitsColor

Represents the color of the pits.

flags

Flags that indicate the distortion type and the distortion color.

Run the AgingCommand on an image.

Visual Basic

Copy Code

Public Sub AgingConstructorExample()    RasterCodecs.Startup()    Dim codecs As New RasterCodecs()    codecs.ThrowExceptionsOnInvalidImages = True    Dim leadImage As RasterImage = codecs.Load(LeadtoolsExamples.Common.ImagesPath.Path + "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, LeadtoolsExamples.Common.ImagesPath.Path + "Result.jpg", RasterImageFormat.Jpeg, 24)    RasterCodecs.Shutdown() End Sub

C#

Copy Code

public void AgingConstructorExample()  {     // Load an image     RasterCodecs.Startup();     RasterCodecs codecs = new RasterCodecs();     codecs.ThrowExceptionsOnInvalidImages = true;       RasterImage image = codecs.Load(LeadtoolsExamples.Common.ImagesPath.Path + "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, LeadtoolsExamples.Common.ImagesPath.Path + "Result.jpg", RasterImageFormat.Jpeg, 24);       RasterCodecs.Shutdown();  }

Target Platforms: Microsoft .NET Framework 2.0, Windows 98, Windows NT 4.0, Windows Millennium Edition, Windows 2000, Windows XP Home Edition, Windows XP Professional, Windows Server 2003 family

Reference