poly = GetAreaSelectionAsPolygon[frame]

Polygon[{{48, 18}, {51, 16}, {57, 12}, {62, 10}, {70, 6}, {77, 3}, {84, 1}, {89, 1}, {111, 1}, ... 0}, {1, 65}, {1, 61}, {1, 57}, {4, 49}, {6, 44}, {9, 40}, {12, 35}, {15, 30}, {16, 27}, {16, 27}}]


Converted by Mathematica  (July 17, 2003)