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

*To*: mathgroup at smc.vnet.net*Subject*: [mg130539] Re: Converting a magnified image of a line to a single pixel smoothed*From*: "Dave Waddell" <dwwaddell at gmail.com>*Date*: Sat, 20 Apr 2013 05:41:29 -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>

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

**Follow-Ups**:**Re: Converting a magnified image of a line to a single***From:*Matthias Odisio <matthias@wolfram.com>

**References**:**Converting a magnified image of a line to a single pixel smoothed***From:*Dave Waddell <dwwaddell@gmail.com>