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
- From: "Dave Waddell" <dwwaddell at gmail.com>
- 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; dt = ImageAdjust@DistanceTransform@b3; result = ColorNegate@Image[WatershedComponents[dt], "Bit"]; HighlightImage[trace, result] Matthias Odisio Wolfram Research
- References:
- Converting a magnified image of a line to a single pixel smoothed
- From: Dave Waddell <dwwaddell@gmail.com>
- Converting a magnified image of a line to a single pixel smoothed