Type of threshold applied to scaling down bi-tonal image
Visual Basic |
---|
Public Property pScaleType As EScaleType |
Sub ScaleImage(imageFile As String, imageFileOut As String) ' Create objects and open input images Dim Ci As New CiServer Dim Tools As CiTools: Set Tools = Ci.CreateTools Tools.Image.Open imageFile ' Do processing Tools.ScaleImage 0.5, 0.5 ' Save results Tools.Image.SaveAs imageFileOut, ciEXT End Sub