Public Class FreeHandShearCommand 
   Inherits Leadtools.ImageProcessing.RasterCommand
   Implements IRasterCommand 

Dim instance As FreeHandShearCommand

public class FreeHandShearCommand : Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

public ref class FreeHandShearCommand : public Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

Public Sub FreeHandShearCommandExample()
   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 UserPoint() As LeadPoint
   ReDim UserPoint(3)
   Dim Amplitudes() As Integer
   ReDim Amplitudes(12)

   Dim command As FreeHandShearCommand = New FreeHandShearCommand

   ' Fill apUserPoint array with points that define a triangular wave
   UserPoint(0).X = 0
   UserPoint(0).Y = 0
   UserPoint(1).X = 3
   UserPoint(1).Y = 10
   UserPoint(2).X = 9
   UserPoint(2).Y = -10
   UserPoint(3).X = 12
   UserPoint(3).Y = 0

   ' Draw a triangular wave according to UserPoint points and store the Amplitudes values in the Amplitudes array.
   EffectsUtilities.GetCurvePoints(Amplitudes, UserPoint, CurvePointsType.Linear)

   ' Normalize Amplitudes array (maximum value in Amplitudes is 1000 and lower is -1000).

   Dim Maximum As Integer
   Dim i As Integer
   Maximum = 0
   For i = 0 To 12
      If (Maximum < Amplitudes(i)) Then
         Maximum = Amplitudes(i)
      End If
   Next

   If (Maximum <> 0) Then
      For i = 0 To 12
         Amplitudes(i) = (1000 * Amplitudes(i) \ Math.Abs(Maximum))
      Next
   End If

   command.Amplitudes = Amplitudes
   command.Scale = 100
   command.FillColor = New RasterColor(0, 0, 0)
   command.Flags = FreeHandShearCommandFlags.Horizontal Or FreeHandShearCommandFlags.Repeat

   ' Apply the shear wave horizontally.
   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

public void FreeHandShearCommandExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));

      // Prepare the command
      LeadPoint[] UserPoint = new LeadPoint[4];
      int[]   Amplitudes = new int[13];

      FreeHandShearCommand command = new FreeHandShearCommand();

      // Fill apUserPoint array with points that define a triangular wave
      UserPoint[0].X = 0;
      UserPoint[0].Y = 0;
      UserPoint[1].X = 3;
      UserPoint[1].Y = 10;
      UserPoint[2].X = 9;
      UserPoint[2].Y = -10;
      UserPoint[3].X = 12;
      UserPoint[3].Y = 0;

      // Draw a triangular wave according to UserPoint points and store the Amplitudes values in the Amplitudes array.
      EffectsUtilities.GetCurvePoints(Amplitudes, UserPoint, CurvePointsType.Linear);

      // Normalize Amplitudes array (maximum value in Amplitudes is 1000 and lower is -1000).
      int Maximum, i;
      for(Maximum = 0, i = 0; i <  13; i++)
      {
         if(Maximum < Amplitudes [i])
            Maximum =  Amplitudes [i];
      }

      if(Maximum != 0)
      {
         for(i = 0; i < 13; i++)
         {
            Amplitudes [i] = (1000 * Amplitudes [i] / Math.Abs(Maximum));
         }
      }

      command.Amplitudes = Amplitudes;
      command.Scale     = 100;
      command.FillColor = new RasterColor(0, 0, 0);
      command.Flags     = FreeHandShearCommandFlags.Horizontal | FreeHandShearCommandFlags.Repeat;

      // Apply the shear wave horizontally.
      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";
}