IMcImageFromPointsCreateImage Method |
![]() |
Namespace: MediaCy.IQL.Operations
Function CreateImage ( Optional eSourceType As mcfpSource = mcfpSource.mcfpsValues, Optional Flags As mcImageCreateFlags = mcImageCreateFlags.mcicfDefault, <OptionalAttribute> vSourceImg As Object ) As McImage
Sub CreateTPSImageFromPoints() Images.Open "C:\Mediacy\ipwin5\Images\COLORDOT.TIF" Dim pCoords(4) As SINGLEPOINT pCoords(0).x = 55: pCoords(0).y = 99 pCoords(1).x = 169: pCoords(1).y = 60 pCoords(2).x = 180: pCoords(2).y = 187 pCoords(3).x = 43: pCoords(3).y = 183 pCoords(4).x = 80: pCoords(4).y = 206 With ThisApplication.ActiveImage.ImageFromPoints .Coordinates = pCoords .Radius = 5 .Method = mcfpmThinPlateSpline 'create image based on thin-plate spline .CreateImage mcfpsImage Debug.Print "Values = " & McToText(.Values) End With End Sub