(sharing) In[134]:=

GetPointsAsList[frame]

Out[134]=

{{41, 63, 116, 118, 123, 139, 171, 201, 217, 221, 222, 223, 224, 224, 224, 224, 224, 224, 224}, {73, 74, 80, 80, 81, 82, 86, 89, 91, 93, 93, 93, 93, 94, 95, 96, 97, 98, 98}}

Converted by Mathematica  (July 17, 2003)