Duplicate Method (CiImage)

Visual Basic
C#
Delphi
JScript
C++/CLI

'Declaration
 
Public Function Duplicate() As CiImage

'Usage
 
Dim instance As CiImage
Dim value As CiImage
 
value = instance.Duplicate()

public CiImage Duplicate()

public function Duplicate(): CiImage;

public function Duplicate() : CiImage;

public:
CiImage^ Duplicate();

Creates a new image with properties and pixels of this image.

C#
VB.NET

void ImageMethods()
{
    CiServer ci = Inlite.ClearImageNet.Server.GetThreadServer();
    CiImage image = ci.CreateImage();
    // Initialize 3000 pixels by 2000 pixels RGB image. All pixels of new RGB image are black.  Default resolution is 1 dpi
    image.CreateBpp(3000, 2000, 24);
    // Change DPI to 200
    image.HorzDpi = 200; image.VertDpi = 200;
    // Crop area of the image
    image.Crop(100, 200, 800, 1000);
    // Initialize 8.5" by 11" bi-tonal image. All pixels of new Bi-tonal image are white.  Default resolution is 300 dpi
    // Image initialization closes and frees memory of the previously crated RGB image
    image.Create((int)(8.5 * 300), (int)(11.0 * 300));
    // Convert to grayscale
    image.ToGrayscale();
    // Create zone in the center of the image
    CiImage zoneCenter = image.CreateZone(image.Width / 3, image.Height / 3, image.Width * 2 / 3, image.Height * 2 / 3);
    // Invert center area of the image
    zoneCenter.Invert();
    // Re-define zone to upper left quadrant of the image
    CiRect rect = ci.CreateRect(0, 0, image.Width / 2, image.Height / 2);
    CiImage zoneCorner = image.CreateZoneRect(rect);
    // Clear corner area on the image
    zoneCorner.Clear();
    // Duplicate center area to a new image
    CiImage imageCenter = zoneCenter.Duplicate();
    // Copy from the original image
    CiImage imageCopy = ci.CreateImage();
    imageCopy.Copy(image);
    // Convert image to bi-tonal
    imageCopy.ToBitonal();
    // Clean-up. Free image memory
    image.Close();
    imageCenter.Close();
    imageCopy.Close();
}

Sub ImageMethods()
    Dim ci As CiServer = Inlite.ClearImageNet.Server.GetThreadServer()
    Dim image As CiImage = ci.CreateImage()
    '  Initialize 3000 pixels by 2000 pixels RGB image. All pixels of new RGB image are black.  Default resolution is 1 dpi
    image.CreateBpp(3000, 2000, 24)
    '  Change DPI to 200
    image.HorzDpi = 200 : image.VertDpi = 200
    '  Crop area of the image
    image.Crop(100, 200, 800, 1000)
    '  Initialize 8.5" by 11" bi-tonal image. All pixels of new Bi-tonal image are white.  Default resolution is 300 dpi
    '  Image initialization closes and frees memory of the previously crated RGB image
    image.Create(8.5 * 300, 11 * 300)
    '  Convert to grayscale
    image.ToGrayscale()
    '  Create zone in the center of the image
    Dim zoneCenter As CiImage = image.CreateZone(image.Width / 3, image.Height / 3,
            image.Width * 2 / 3, image.Height * 2 / 3)
    '  Invert center area of the image
    zoneCenter.Invert()
    '  Re-define zone to upper left quadrant of the image
    Dim rect As CiRect = ci.CreateRect(0, 0, image.Width / 2, image.Height / 2)
    Dim zoneCorner As CiImage = image.CreateZoneRect(rect)
    '  Clear corner area on the image
    zoneCorner.Clear()
    '  Duplicate center area to a new image
    Dim imageCenter As CiImage = zoneCenter.Duplicate()
    '  Copy from the original image
    Dim imageCopy As CiImage = ci.CreateImage()
    imageCopy.Copy(image)
    '  Convert image to bi-tonal
    imageCopy.ToBitonal()
    '  Clean-up. Free image memory
    image.Close()
    imageCenter.Close()
    imageCopy.Close()
End Sub

Reference

CiImage Class
CiImage Members