In[101]:=

poly = GetAreaSelectionAsPolygon[frame]

Out[101]=

Polygon[{{9, 78}, {12, 63}, {41, 26}, {47, 21}, {49, 18}, {61, 10}, {68, 7}, {76, 2}, {132, 1} ... , {2, 138}, {1, 124}, {1, 120}, {1, 117}, {1, 103}, {1, 100}, {1, 97}, {1, 96}, {1, 96}, {1, 96}}]


Converted by Mathematica  (July 17, 2003)