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

*To*: mathgroup at smc.vnet.net*Subject*: [mg130535] Re: Converting a magnified image of a line to a single*From*: Matthias Odisio <matthias at wolfram.com>*Date*: Fri, 19 Apr 2013 01:17:47 -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>

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>