3 edited tags
2 edited tags
1

# Character edge finding

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];


Test:

Graphics[Point[pdata]]


However, the points are not sorted in an order usable by Line or Polygon:

Graphics[Polygon[pdata]]


This brings me to my question:

• What would be an efficient method to sort the coordinates so that it would plot properly with Line or Polygon?