Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.Core
Public Sub KeyStoneCommandExample()
Dim codecs As RasterCodecs = New RasterCodecs()
codecs.ThrowExceptionsOnInvalidImages = True
'Load an image
Dim image As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"))
'Dim PolyPoints As List(Of LeadPoint) = New List(Of LeadPoint)()
Dim PolyPoints() As LeadPoint = New LeadPoint(4) {}
'The four corners of the polygon
PolyPoints(0) = New LeadPoint(94, 94)
PolyPoints(1) = New LeadPoint(306, 43)
PolyPoints(2) = New LeadPoint(318, 237)
PolyPoints(3) = New LeadPoint(98, 237)
'Prepare the command
Dim command As KeyStoneCommand = New KeyStoneCommand()
command.PolygonPoints = PolyPoints
'Apply
command.Run(image)
codecs.Save(command.TransformedBitmap, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), image.OriginalFormat, image.BitsPerPixel)
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.Core;
public void KeyStoneCommandExample()
{
RasterCodecs codecs = new RasterCodecs();
codecs.ThrowExceptionsOnInvalidImages = true;
//Load an image
RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));
LeadPoint[] PolyPoints = new LeadPoint[4];
//The four corners of the polygon
PolyPoints[0]= new LeadPoint(94, 94);
PolyPoints[1]= new LeadPoint(306, 43);
PolyPoints[2]= new LeadPoint(318, 237);
PolyPoints[3]= new LeadPoint(98, 237);
//Prepare the command
KeyStoneCommand command = new KeyStoneCommand();
command.PolygonPoints = PolyPoints;
//Apply
command.Run(image);
codecs.Save(command.TransformedBitmap, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), image.OriginalFormat, image.BitsPerPixel);
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}