Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.Core
Imports Leadtools.ImageProcessing.Effects
Public Sub BlurDetectionCommandExample()
Dim codecs As RasterCodecs = New RasterCodecs()
codecs.ThrowExceptionsOnInvalidImages = True
'Load an image
Dim image As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "cannon.jpg"))
'Prepare the command
Dim command As BlurDetectionCommand = New BlurDetectionCommand()
'Apply
command.Run(image)
'Result
'command.Blurred equals false
'Apply Gaussiean Blur to the image
Dim gcommand As GaussianCommand = New GaussianCommand()
gcommand.Radius = 20
gcommand.Run(image)
'Apply BlurDetection command again
command.Run(image)
'Result
'command.Blurred equals true
'command.BlurExtent equals 0.8745
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;
using Leadtools.ImageProcessing.Effects;
public void BlurDetectionCommandExample()
{
RasterCodecs codecs = new RasterCodecs();
codecs.ThrowExceptionsOnInvalidImages = true;
//Load an image
RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "cannon.jpg"));
//Prepare the command
BlurDetectionCommand command = new BlurDetectionCommand();
//Apply
command.Run(image);
//Result
//command.Blurred equals false
//Apply Gaussian Blur to the image
GaussianCommand gcommand = new GaussianCommand();
gcommand.Radius = 20;
gcommand.Run(image);
//Apply BlurDetection command again
command.Run(image);
//Result
//command.Blurred equals true
//command.BlurExtent equals 0.8745
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}
Copy Code