LEADTOOLS Image Processing (Leadtools.ImageProcessing.SpecialEffects assembly)

AgingCommand Constructor(Int32,Int32,Int32,Int32,Int32,Int32,RasterColor,RasterColor,RasterColor,AgingCommandFlags)

Show in webframe
Example 







Number of horizontal scratch lines. This parameter only accepts positive values.
Number of vertical scratch lines. This parameter only accepts positive values.
Maximum scratch line length, in pixels. Its minimum value is 2.
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.)
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.)
Maximum pit size, in pixels. The size of the pits will be selected at random between 1 and MaximumPitSize.
Represents the color of the scratch lines.
Represents the color of the dust.
Represents the color of the pits.
Flags that indicate the distortion type and the distortion color.
Initializes a new AgingCommand class object with explicit parameters.
Syntax
'Declaration
 
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 _
)
'Usage
 
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)

            

            
function AgingCommand( 
   horizontalScratchCount ,
   verticalScratchCount ,
   maximumScratchLength ,
   dustDensity ,
   pitsDensity ,
   maximumPitSize ,
   scratchColor ,
   dustColor ,
   pitsColor ,
   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.
Example
Copy Code  
Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.SpecialEffects

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
using Leadtools;
using Leadtools.Codecs;
using Leadtools.ImageProcessing.SpecialEffects;

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";
}
using Leadtools;
using Leadtools.Codecs;
using Leadtools.ImageProcessing.SpecialEffects;

[TestMethod]
public async Task AgingConstructorExample()
{
   // Load an image
   RasterCodecs codecs = new RasterCodecs();
   codecs.ThrowExceptionsOnInvalidImages = true;
   string srcFileName = @"Assets\Image1.cmp";
   StorageFile loadFile = await Tools.AppInstallFolder.GetFileAsync(srcFileName);
   RasterImage image = await codecs.LoadAsync(LeadStreamFactory.Create(loadFile));

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

   // Apply aging effect.
   command.Run(image);

   string destFileName = @"result.bmp";
   StorageFile saveFile = await Tools.AppLocalFolder.CreateFileAsync(destFileName);
   await codecs.SaveAsync(image, LeadStreamFactory.Create(saveFile), RasterImageFormat.Bmp, 24);
}
Requirements

Target Platforms

See Also

Reference

AgingCommand Class
AgingCommand Members
Overload List

 

 


Products | Support | Contact Us | Copyright Notices
© 2006-2014 All Rights Reserved. LEAD Technologies, Inc.