How to track the shape profile of a changing object ?

Rizwan

Hi
I wanted to track the shape of a changing sphere (2D) that is getting distorted over time. As for example, in the following figure, the small sphere is enlarging and at time t=4, it takes the shape of the outer most circle.So I want to get this shape profile at different time frames. Could you please help me in doing this.
Thanks in advance.

mbatchelor

2017-12-08-095710

Rizwan --

The TECH SUPPORT FOLKS at MEDIA CY and I have tweaked a routine that does what I believe you are looking for.

The BOUNDARY POINTS ROUTINE below was run on the

    Rizwan A_Mask_Crop.tif

That image is attached to this comment and generated the results shown in the SCREEN CAPTURE.

The DLLs needed to support the ROUTINE are shown after the SCREEN CAPTURE.

BY THE WAY . . .

I rotated your EXAMPLE IMAGE 90 DEC CW so that T = 1 is the first object to be found by a THRESHOLD / COUNT, T = 2 is the second, and so on.  If not, the objects are found in the order of their highest point which I think would be 1, 5, 3, 2, 4.

I hope this information is helpful.

-- Matt

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

    Public Sub BoundaryPoints()

        'Show the OUTPUT WINDOW
        ThisApplication.Output.show

        'Clear the OUTPUT WINDOW
        ThisApplication.Output.Clear

        '*** Find the calibration units and resolution

        'Declare VARIABLES
        Dim MyTempCalibUnits As String
        Dim MyTempCalibPixelSize As Single

        'If IMAGE is CALIBRATED
        If (ThisApplication.ActiveImage.SpatialCalibration IsNot Nothing) _
            Then

                'Learn CALIBRATION INFORMATION
                MyTempCalibUnits = _
                    ThisApplication.ActiveImage.SpatialCalibration.UnitAbbrev
                MyTempCalibPixelSize = _
                    ThisApplication.ActiveImage.SpatialCalibration.PixelSizeX
            Else

                'Simulate CALIBRATION INFORMATION
                MyTempCalibUnits = _
                    "pix"
                MyTempCalibPixelSize = _
                    1

            End If

        'Connect with the ACTIVE IMAGE
        Dim im As McImage = _
            ThisApplication.ActiveImage

        'Connect with the MEASUREMENT DATA in the ACTIVE IMAGE
        Dim md As McMMData = _
            im.MeasurementsData

        'Create an ARRAY to hold the BOUNDARY POINTS
        Dim points() As SINGLEPOINT=Nothing

        'Loop through the FEATURES in the ACTIVE IMAGE
        For Each sf As McMMSubFeature In md.SubFeatures

                'Learn and output the NAME for the FEATURE
                Dim s As String = _
                    sf.Name

                'Send FEATURE NAME to the OUTPUT WINDOW
                ThisApplication.Output.PrintMessage s

                'Output the COLUMN HEADERS
                s = _
                    "X" & vbTab & _
                    "Y"

                'Send COLUMN HEADERS to the OUTPUT WINDOW
                ThisApplication.Output.PrintMessage s

                'Fill the ARRAY with the BOUNDARY POINTS
                sf.GetFeatures.GetFeaturePoints(sf.FeatureIndex,points)

                'Loop through the BOUNDARY POINTS
                For Each p As SINGLEPOINT In points

                        'Output the CURRENT BOUDARY POINT
                        s = _
                            Format _
                                ( _
                                p.x * _
                                MyTempCalibPixelSize, _
                                "0.00" _
                                ) & _
                            vbTab & _
                            Format _
                                ( _
                                p.y * _
                                MyTempCalibPixelSize, _
                                "0.00" _
                                )

                        'Send BOUNDARY POINTS to the OUTPUT WINDOW
                        ThisApplication.Output.PrintMessage s

                    Next

            Next

    End Sub

mbatchelor

2017-12-08-144127

Rizwan --

I am glad that you found the BOUNDARY POINTS ROUTINE appropriate to your task.

There are some resources within the PREMIER UNIVERSE to help you learn about PREMIER MACROS.

A great place to start is

    Image-Pro Premier User Guide.pdf

in the DOCUMENTATION FOLDER for your PREMIER.

The WORKING WITH MACROS section starts of PAGE 9-25.

If you need assistance, ALCES and I provide our services on a consulting basis.

I hope this information is helpful.

-- Matt

Matthew M. Batchelor
President and Applications Engineer
Alces Imaging and Automation, LLC

YuriG

Hi Rizwan,

I assume that all the frames of this time sequence are merged into a sequence (if not, you can create a sequence of all frames using Open as Sequence).
You can use the following steps to track the edge of your bubble:

1. Open line profile window and draw line profile as shown on your picture.
2. Add Edge detector that detects the edge of the bubble (can be Falling edge, or Valley, depending on your image). Adjust Edge detector parameters to detect only 1 edge on any frame.
3. Click the Collect button on the line profile tab, "All Frames" must be on:

4. Then open Data Collector table or Graph and examine your data (distance from the origin to the edge:



Yuri

mbatchelor

2017-12-07-111128

Rizwan --

In interpreted your question a bit differently than Yuri did.

I found an image on the INTERNET of a bouncing ball that deforms during its motion.

That image is below.



 
I then:

** Stripped out the frames of that image
** Stacked them vertically
** Smart thresholded them
** Masked them
** Bright thresholded them
** Measured them

The results are below.

I hope this information is helpful and that it gives you some ideas.

-- Matt

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Rizwan

Hi
YuriG and Matt thanks.
My problem is as  follows: 
I have a video of 5 frames where the sphere changes its shape. And I want to get the profile data to be extracted. In other words, I want the coordinate of the ppoints on the circumference of the circles.
Your answers enlightened me, but a further specifics for this problem would assist me more. I really appreciate your assitance. Thanks

YuriG

Rizwan,

Why don't you just measure shape parameters on every frame, such as Aspect ratio, Centroid, Area,...?

Yuri

Rizwan

Hi
Matt, Thanks for your wonderful effort. This is what exactly I was looking for. However, i am quite new with macro. Is there any availabloe resources that explain how to load and run macros and about the .dll? Thank you very much for your support.

Hi Yurig
I wanted the exact profiles, not the shape parameters. Thanks though. 

Rizwan

Thanks Matt
That's wonderful. I really appreciate your effort. Thanks and regards.

mbatchelor

2017-12-08-171625

Rizwan --

I am glad that we could help you use your PREMIER SOFTWARE to tackle your imaging challenge.

Holler when we can assist further.

-- Matt