Public Function New( _
   ByVal shiftAmount As Integer, _
   ByVal minimumInput As Integer, _
   ByVal maximumInput As Integer, _
   ByVal minimumOutput As Integer, _
   ByVal maximumOutput As Integer _
)

Dim shiftAmount As Integer
Dim minimumInput As Integer
Dim maximumInput As Integer
Dim minimumOutput As Integer
Dim maximumOutput As Integer
 
Dim instance As New ZeroToNegativeCommand(shiftAmount, minimumInput, maximumInput, minimumOutput, maximumOutput)

public ZeroToNegativeCommand( 
   int shiftAmount,
   int minimumInput,
   int maximumInput,
   int minimumOutput,
   int maximumOutput
)

public:
ZeroToNegativeCommand( 
   int shiftAmount,
   int minimumInput,
   int maximumInput,
   int minimumOutput,
   int maximumOutput
)

Public Sub ZeroToNegativeConstructorExample()
   Dim codecs As New RasterCodecs()
   codecs.ThrowExceptionsOnInvalidImages = True

   Dim leadImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "ImageProcessingDemo\Beauty16.jpg"))

   ' Prepare the command
   ' Convert the image to unsigned image by shifting the negative values to become positive.
   Dim MinToZCommand As MinimumToZeroCommand = New MinimumToZeroCommand
   MinToZCommand.Run(leadImage)

   ' Apply multiscale enhancement
   Dim MultiScaleCommand As MultiscaleEnhancementCommand = New MultiscaleEnhancementCommand(2000, 4, -1, 0, 0, MultiscaleEnhancementCommandType.Gaussian, MultiscaleEnhancementCommandFlags.EdgeEnhancement)

   ' Convert the image back to signed by shifting the same amount in the negative side.
   Dim command As ZeroToNegativeCommand = New ZeroToNegativeCommand(MinToZCommand.ShiftAmount, -32767, 32766, 0, 65535)
   command.Run(leadImage)

End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

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

      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, @"ImageProcessingDemo\Beauty16.jpg"));

      // Prepare the command
      // Convert the image to unsigned image by shifting the negative values to become positive.
      MinimumToZeroCommand MinToZCommand = new MinimumToZeroCommand();
      MinToZCommand.Run(image); 

      // Apply multiscale enhancement
      MultiscaleEnhancementCommand MultiScaleCommand = new MultiscaleEnhancementCommand(2000, 4, -1, 0, 0, MultiscaleEnhancementCommandType.Gaussian, MultiscaleEnhancementCommandFlags.EdgeEnhancement);

      // Convert the image back to signed by shifting the same amount in the negative side.
      ZeroToNegativeCommand command = new ZeroToNegativeCommand(MinToZCommand.ShiftAmount, -32767, 32766, 0, 65535);
      command.Run(image);

   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}

public void ZeroToNegativeConstructorExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   // Convert the image to unsigned image by shifting the negative values to become positive.
   MinimumToZeroCommand MinToZCommand = new MinimumToZeroCommand();
   MinToZCommand.Run(image);
   // Apply multiscale enhancement
   MultiscaleEnhancementCommand MultiScaleCommand = new MultiscaleEnhancementCommand(2000, 4, -1, 0, 0, MultiscaleEnhancementCommandType.Gaussian, MultiscaleEnhancementCommandFlags.EdgeEnhancement);

   // Convert the image back to signed by shifting the same amount in the negative side.
   ZeroToNegativeCommand command = new ZeroToNegativeCommand(MinToZCommand.ShiftAmount, -32767, 32766, 0, 65535);
   command.Run(image);
   // Save result image
   RasterCodecs codecs = new RasterCodecs();
   codecs.Save(image, outStream, RasterImageFormat.DicomGray, image.BitsPerPixel);
   image.Dispose();
}

Public Sub ZeroToNegativeConstructorExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   ' Convert the image to unsigned image by shifting the negative values to become positive.
   Dim MinToZCommand As MinimumToZeroCommand = New MinimumToZeroCommand()
   MinToZCommand.Run(image)
   ' Apply multiscale enhancement
   Dim MultiScaleCommand As MultiscaleEnhancementCommand = New MultiscaleEnhancementCommand(2000, 4, -1, 0, 0, MultiscaleEnhancementCommandType.Gaussian, MultiscaleEnhancementCommandFlags.EdgeEnhancement)

   ' Convert the image back to signed by shifting the same amount in the negative side.
   Dim command As ZeroToNegativeCommand = New ZeroToNegativeCommand(MinToZCommand.ShiftAmount, -32767, 32766, 0, 65535)
   command.Run(image)
   ' Save result image
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Save(image, outStream, RasterImageFormat.DicomGray, image.BitsPerPixel)
   image.Dispose()
End Sub