Public Property Angle As Integer

Dim instance As FunctionalLightCommand
Dim value As Integer
 
instance.Angle = value
 
value = instance.Angle

public int Angle {get; set;}

public:
property int Angle {
   int get();
   void set (    int value);
}

Public Sub AnglePropertyExample()
   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)
   'Apply the filter
   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

   Dim curve() As Integer
   ReDim curve(12)
   EffectsUtilities.GetCurvePoints(curve, userPoint, CurvePointsType.Linear)

   Dim command As FunctionalLightCommand = New FunctionalLightCommand
   command.RedAmplitude = 90
   command.GreenAmplitude = 50
   command.BlueAmplitude = 75
   command.Angle = 4500
   command.PhaseShift = 3000
   command.Frequency = 3000
   command.Buffer = curve
   command.Flags = FunctionalLightCommandFlags.Freehand Or FunctionalLightCommandFlags.Addition
   ' Apply the linear lighting effect.
   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 AnglePropertyExample()
   {
      // 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];
      //Apply the filter
      userPoint[0].X = 0;
      userPoint[0].Y = 0;
      userPoint[1].X = 3;
      userPoint[1].Y = 5;
      userPoint[2].X = 9;
      userPoint[2].Y = 7;
      userPoint[3].X = 12;
      userPoint[3].Y = 10; 

      int[] curve = new int[13];
      EffectsUtilities.GetCurvePoints(curve, userPoint, CurvePointsType.Linear);

      FunctionalLightCommand command = new FunctionalLightCommand();
      command.RedAmplitude = 90; 
      command.GreenAmplitude = 50;
      command.BlueAmplitude = 75;
      command.Angle = 4500;
      command.PhaseShift = 3000;
      command.Frequency = 5000;
      command.Buffer = curve;
      command.Flags =  FunctionalLightCommandFlags.Freehand | FunctionalLightCommandFlags.Addition; 

      // Apply the linear lighting effect.
      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";
}