LEADTOOLS Image Processing (Leadtools.ImageProcessing.SpecialEffects assembly)
LEAD Technologies, Inc

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

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. .NET support WinRT support
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
 
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";
}
[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: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2

See Also

Reference

AgingCommand Class
AgingCommand Members
Overload List

 

 


Products | Support | Contact Us | Copyright Notices

© 2006-2012 All Rights Reserved. LEAD Technologies, Inc.