Public Class ColorHalftoneCommand 
   Inherits Leadtools.ImageProcessing.RasterCommand
   Implements IRasterCommand 

Dim instance As ColorHalftoneCommand

public class ColorHalftoneCommand : Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

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

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

   Dim leadImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "ImageProcessingDemo\Beauty16.jpg"), 16, CodecsLoadByteOrder.BgrOrGray, 1, 1)

   ' Prepare the command
   Dim command As New ColorHalftoneCommand
   command.MaximumRadius = 15
   command.CyanAngle = 10800
   command.MagentaAngle = 16200
   command.YellowAngle = 9000
   command.BlackAngle = 4500
   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 ColorHalftoneCommandExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, @"ImageProcessingDemo\Beauty16.jpg"),16,CodecsLoadByteOrder.BgrOrGray,1,1);


      // Prepare the command
      ColorHalftoneCommand command  = new ColorHalftoneCommand();
      command.MaximumRadius = 15;
      command.CyanAngle = 10800;
      command.MagentaAngle = 16200;
      command.YellowAngle = 9000;
      command.BlackAngle = 4500;
      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";
}

public void ColorHalftoneCommandExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   ColorHalftoneCommand command = new ColorHalftoneCommand();
   command.MaximumRadius = 15;
   command.CyanAngle = 10800;
   command.MagentaAngle = 16200;
   command.YellowAngle = 9000;
   command.BlackAngle = 4500;
   command.Run(image);
   // Save result image
   RasterCodecs codecs = new RasterCodecs();
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24);
   image.Dispose();
}

Public Sub ColorHalftoneCommandExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim command As ColorHalftoneCommand = New ColorHalftoneCommand()
   command.MaximumRadius = 15
   command.CyanAngle = 10800
   command.MagentaAngle = 16200
   command.YellowAngle = 9000
   command.BlackAngle = 4500
   command.Run(image)
   ' Save result image
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24)
   image.Dispose()
End Sub