Re: Converting a magnified image of a line to a single pixel smoothed

• To: mathgroup at smc.vnet.net
• Subject: [mg130532] Re: Converting a magnified image of a line to a single pixel smoothed
• Date: Fri, 19 Apr 2013 01:16:46 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net
• References: <20130417063041.7376E6A61@smc.vnet.net> <517000DA.6080104@wolfram.com>

```Matthias:
Thanks. That looks great. I'll look into the functions that you have used as
you suggest.

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;
result = ColorNegate@Image[WatershedComponents[dt], "Bit"];
HighlightImage[trace, result]

Matthias Odisio
Wolfram Research

```

• Prev by Date: Re: Turning a Sequence into a List? -- Thanks to all
• Next by Date: Unable to plot a surface implicitly defined
• Previous by thread: Converting a magnified image of a line to a single pixel smoothed
• Next by thread: Re: Converting a magnified image of a line to a single