(sharing) In[145]:=

linePath = Line[Transpose[{pts[[1]] - minX + 10, dy + 20 - (pts[[2]] - minY + 10)}]]

Out[145]=

Line[{{10, 25}, {55, 67}, {95, 79}, {136, 55}, {161, 10}}]


Converted by Mathematica  (July 17, 2003)