Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.Color
Public Sub GrayScaleToMultitoneCommandExample()
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 Colors() As RasterColor
ReDim Colors(1)
Dim command As GrayScaleToMultitoneCommand = New GrayScaleToMultitoneCommand
command.Colors = Colors
command.Colors(0).R = 255
command.Colors(0).G = 255
command.Colors(0).B = 0
command.Colors(1).R = 255
command.Colors(1).G = 0
command.Colors(1).B = 0
command.Gradient = Nothing
command.Distribution = GrayScaleToMultitoneCommandDistributionType.Linear
command.Tone = GrayScaleToMultitoneCommandToneType.Duotone
command.Type = GrayScaleToDuotoneCommandMixingType.ReplaceOldWithNew
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.Color;
public void GrayScaleToMultitoneCommandExample()
{
// Load an image
RasterCodecs codecs = new RasterCodecs();
codecs.ThrowExceptionsOnInvalidImages = true;
RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));
// Prepare the command
GrayScaleToMultitoneCommand command = new GrayScaleToMultitoneCommand();
command.Colors = new RasterColor[2];
command.Colors[0].R = 255;
command.Colors[0].G = 255;
command.Colors[0].B = 0;
command.Colors[1].R = 255;
command.Colors[1].G = 0;
command.Colors[1].B = 0;
command.Gradient = null;
command.Distribution = GrayScaleToMultitoneCommandDistributionType.Linear;
command.Tone = GrayScaleToMultitoneCommandToneType.Duotone;
command.Type = GrayScaleToDuotoneCommandMixingType.ReplaceOldWithNew;
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.Color;
using Leadtools.Examples;
public void GrayScaleToMultitoneCommandExample(RasterImage image, Stream outStream)
{
// Prepare the command
GrayScaleToMultitoneCommand command = new GrayScaleToMultitoneCommand();
command.Colors = new RasterColor[2];
command.Colors[0].R = 255;
command.Colors[0].G = 255;
command.Colors[0].B = 0;
command.Colors[1].R = 255;
command.Colors[1].G = 0;
command.Colors[1].B = 0;
command.Gradient = null;
command.Distribution = GrayScaleToMultitoneCommandDistributionType.Linear;
command.Tone = GrayScaleToMultitoneCommandToneType.Duotone;
command.Type = GrayScaleToDuotoneCommandMixingType.ReplaceOldWithNew;
command.Run(image);
// Save result image
RasterCodecs codecs = new RasterCodecs();
codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24);
image.Dispose();
}
Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.Color
Public Sub GrayScaleToMultitoneCommandExample(ByVal image As RasterImage, ByVal outStream As Stream)
' Prepare the command
Dim command As GrayScaleToMultitoneCommand = New GrayScaleToMultitoneCommand()
command.Colors = New RasterColor(1){}
command.Colors(0).R = 255
command.Colors(0).G = 255
command.Colors(0).B = 0
command.Colors(1).R = 255
command.Colors(1).G = 0
command.Colors(1).B = 0
command.Gradient = Nothing
command.Distribution = GrayScaleToMultitoneCommandDistributionType.Linear
command.Tone = GrayScaleToMultitoneCommandToneType.Duotone
command.Type = GrayScaleToDuotoneCommandMixingType.ReplaceOldWithNew
command.Run(image)
' Save result image
Dim codecs As RasterCodecs = New RasterCodecs()
codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24)
image.Dispose()
End Sub