Date: Apr 25, 2013 2:51 AM
Author: Bob Hanlon
Subject: Re: Converting a magnified image of a line to a single

>From Details and Options section of documentation page for SelectComponents

(http://reference.wolfram.com/mathematica/ref/SelectComponents.html):

"For the complete list of possible properties, see the reference page for

ComponentMeasurements."

The link in this sentence for ComponentMeasurements goes to

http://reference.wolfram.com/mathematica/ref/ComponentMeasurements.html

with the properties listed under Details and Options.

Bob Hanlon

On Wed, Apr 24, 2013 at 7:01 AM, Joerg Roesgen <biophys.hershey@me.com>wrote:

> This command SelectComponents has the form

> SelectComponents[m,"prop",crit]. I can't find any list of properties

> corresponding to "prop." Any ideas?

>

> Thanks,

> J=F6rg

>

>

> On Apr 20, 2013, at 05:41 , Dave Waddell wrote:

>

> > I tried converting the result image to a graph so that I could apply a

> > moving average and then fit a B-spline through it. As you can tell I'm

> new

> > to Mathematica:

> > data = ArrayRules@SparseArray@ImageData[result]

> > It was all downhill after that. Another nudge would be appreciated.

> > Thanks, Dave.

> >

> > Dave,

> >

> > On 4/17/13 1:30 AM, Dave Waddell wrote:

> >> I have a magnified image of a 0.1mm line here:

> >> http://www.d-a-v-e.org/images/Trace.jpg

> >> ... this converts with Binarize very well:

> >> http://www.d-a-v-e.org/images/Trace%20binary.jpg

> >> ... but what I would like to do is convert it to a single pixel wide

> > smoothed line running right up the middle. Any suggestions or pointers on

> > how to do this in Mathematica would be appreciated.

> >> Dave

> >>

> >

> > The sequence below seems like a good start.

> > The documentation for the functions should help you understand what is

> going

> > on in more details:

> >

> > trace = Import["http://www.d-a-v-e.org/images/Trace.jpg"]

> >

> > b = ColorNegate@Binarize[trace];

> > b2 = SelectComponents[b, "Area", -1];

> > b3 = FillingTransform@b2;

> > dt = ImageAdjust@DistanceTransform@b3;

> > result = ColorNegate@Image[WatershedComponents[dt], "Bit"];

> > HighlightImage[trace, result]

> >

> >

> > Matthias Odisio

> > Wolfram Research

> >

> >

> >

>

>

>