Public Function New( _
   ByVal bricksWidth As Integer, _
   ByVal bricksHeight As Integer, _
   ByVal edgeWidth As Integer, _
   ByVal mortarWidth As Integer, _
   ByVal mortarRoughness As Integer, _
   ByVal mortarRoughnessEvenness As Integer, _
   ByVal bricksRoughness As Integer, _
   ByVal bricksRoughnessEvenness As Integer, _
   ByVal shadeAngle As Integer, _
   ByVal mortarColor As RasterColor, _
   ByVal flags As BricksTextureCommandFlags _
)

Dim bricksWidth As Integer
Dim bricksHeight As Integer
Dim edgeWidth As Integer
Dim mortarWidth As Integer
Dim mortarRoughness As Integer
Dim mortarRoughnessEvenness As Integer
Dim bricksRoughness As Integer
Dim bricksRoughnessEvenness As Integer
Dim shadeAngle As Integer
Dim mortarColor As RasterColor
Dim flags As BricksTextureCommandFlags
 
Dim instance As New BricksTextureCommand(bricksWidth, bricksHeight, edgeWidth, mortarWidth, mortarRoughness, mortarRoughnessEvenness, bricksRoughness, bricksRoughnessEvenness, shadeAngle, mortarColor, flags)

public BricksTextureCommand( 
   int bricksWidth,
   int bricksHeight,
   int edgeWidth,
   int mortarWidth,
   int mortarRoughness,
   int mortarRoughnessEvenness,
   int bricksRoughness,
   int bricksRoughnessEvenness,
   int shadeAngle,
   RasterColor mortarColor,
   BricksTextureCommandFlags flags
)

public:
BricksTextureCommand( 
   int bricksWidth,
   int bricksHeight,
   int edgeWidth,
   int mortarWidth,
   int mortarRoughness,
   int mortarRoughnessEvenness,
   int bricksRoughness,
   int bricksRoughnessEvenness,
   int shadeAngle,
   RasterColor mortarColor,
   BricksTextureCommandFlags flags
)

Public Sub BricksConstructorExample_S2()
   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 cmd As New FillCommand(New RasterColor(128, 128, 128))
   cmd.Run(leadImage)
   Dim command As BricksTextureCommand = New BricksTextureCommand(60, 20, 3, 4, 315, 20, 0, 10, 0, New RasterColor(0, 0, 0), BricksTextureCommandFlags.SmoothedOutEdges Or BricksTextureCommandFlags.TransparentMortar)
   'Apply Bricks Texture on the Image.
   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 BricksConstructorExample_S2()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

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

      // Prepare the command
      FillCommand cmd = new FillCommand(new RasterColor(128, 128, 128));
      cmd.Run(image);
      BricksTextureCommand command = new BricksTextureCommand(60, 20, 3, 4, 315, 20, 0, 10, 0, new RasterColor(0, 0, 0), BricksTextureCommandFlags.SmoothedOutEdges | BricksTextureCommandFlags.TransparentMortar);
      //Apply Bricks Texture on the image.
      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";
}