I have often noticed that examples of the past when done in newer versions of Mathematica generate inconsistent results. A prime example related to the following post (Character edge finding): pic = Thinning@Binarize[GradientFilter[Rasterize[Style[“\[Euro]”, FontFamily -> “Times”], ImageSize -> 200] // Image, 1]]; pdata = Position[ImageData[pic], 1]; lcp = ListCurvePathPlot[pdata]; Mathematica 9.0 (best result) Mathematica 10.4Read more