Fatten image
| Visual Basic |
|---|
Public Sub Fatten( _ 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