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