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";
}