Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.Effects
Public Sub RegionContourPointsConstructorExample()
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 rcRect As LeadRect = New LeadRect(leadImage.Width \ 3, leadImage.Height \ 3, leadImage.Width * 2 \ 3, leadImage.Height * 2 \ 3)
leadImage.AddEllipseToRegion(Nothing, rcRect, RasterRegionCombineMode.Set)
Dim command As RegionContourPointsCommand = New RegionContourPointsCommand
command.XForm = New RasterRegionXForm
command.Run(leadImage)
codecs.Save(leadImage, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24)
Dim points() As LeadPoint = command.Points
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.Effects;
public void RegionContourPointsConstructorExample()
{
// Load an image
RasterCodecs codecs = new RasterCodecs();
codecs.ThrowExceptionsOnInvalidImages = true;
RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));
// Prepare the command
LeadRect rcRect = new LeadRect(image.Width/3, image.Height/3, image.Width*2/3, image.Height*2/3);
image.AddEllipseToRegion(null, rcRect, RasterRegionCombineMode.Set);
RegionContourPointsCommand command = new RegionContourPointsCommand();
command.XForm = new RasterRegionXForm();
command.Run(image);
codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24);
LeadPoint[] points = command.Points;
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}