Re: Converting a magnified image of a line to a single
- To: mathgroup at smc.vnet.net
- Subject: [mg130600] Re: Converting a magnified image of a line to a single
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Thu, 25 Apr 2013 02:53:24 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
- References: <20130417063041.7376E6A61@smc.vnet.net>
>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 at 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 > > > > > > > > >
- 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