Trim image
Visual Basic |
---|
Public Sub Trim( _ ByVal Pixels As Long, _ ByVal Direction As EMorphDirections _ ) |
Value | Description |
---|---|
ciMorphAllNeighbours | Modify all neighboring pixels |
ciMorphDiag | Modify pixels located diagonally |
ciMorphHorz | Modify pixels located to the left and right |
ciMorphHorzAndVert | Modify pixels located left, right, up or down |
ciMorphVert | Modify pixels located up and down |
Sub MorphologicalOps(imageFile As String, imageFileOut As String) ' Open image file Dim ci As New CiServer Dim Tools As CiTools: Set Tools = ci.CreateTools Tools.Image.Open imageFile ' Do processing Tools.Fatten 2, ciMorphAllNeighbours Tools.Trim 4, ciMorphVert ' Save results Tools.Image.SaveAs imageFileOut, ciEXT End Sub