The following line of code finds the edge of a character:
pic = Binarize[GradientFilter[Rasterize[Style["\[Euro]", FontFamily -> "Times"], ImageSize -> 200] // Image, 1]]
The coordinates of the edges can be found as follows:
pdata = Position[ImageData[pic], 1];
However, the points are not sorted in an order usable by
This brings me to my question:
- What would be an efficient method to sort the coordinates so that it would plot properly with
- How to thin and smooth the set of points?
- How to deal with characters with holes in them, like the ones below?