![[Graphics:../HTMLFiles/index_364.gif]](../HTMLFiles/index_364.gif)
Points clicked by the PolyLine tool are obtained.
(sharing) In[137]:=
![pts = GetPointsAsList[frame]](../HTMLFiles/index_367.gif){kind=small}
(sharing) In[138]:=
![img = panel @ getSourceImage[]](../HTMLFiles/index_370.gif){kind=small}
(sharing) In[139]:=
![minX = Min[pts[[1]]]](../HTMLFiles/index_373.gif){kind=small}
(sharing) In[140]:=
![minY = Min[pts[[2]]]](../HTMLFiles/index_377.gif){kind=small}
(sharing) In[141]:=
![dx = Max[pts[[1]]] - Min[pts[[1]]]](../HTMLFiles/index_380.gif){kind=small}
(sharing) In[142]:=
![dy = Max[pts[[2]]] - Min[pts[[2]]]](../HTMLFiles/index_383.gif){kind=small}
(sharing) In[143]:=
![imgData = JavaImageToImageData[img, minX - 10, minY - 10, dx + 20, dy + 20]](../HTMLFiles/index_386.gif){kind=small}
(sharing) In[144]:=
![Show[Graphics[imgData]]](../HTMLFiles/index_390.gif){kind=small}
(sharing) In[145]:=
![linePath = Line[Transpose[{pts[[1]] - minX + 10, dy + 20 - (pts[[2]] - minY + 10)}]]](../HTMLFiles/index_393.gif){kind=small}
(sharing) In[146]:=
![pic1 = ShowRegionOfInterest[ imgData, linePath, LineStyle -> Hue[0]]](../HTMLFiles/index_397.gif)
(sharing) In[147]:=
![pic2 = ShowLineProfile[ LineProfile[imgData, GraphicsRotate[linePath]]]](../HTMLFiles/index_401.gif){kind=small}
(sharing) In[148]:=
![imgDataGray = JavaImageToGrayImageData[img, minX - 10, minY - 10, dx + 20, dy + 20]](../HTMLFiles/index_404.gif){kind=small}
(sharing) In[149]:=
![Show[Graphics[imgDataGray]]](../HTMLFiles/index_408.gif){kind=small}
(sharing) In[150]:=
![pic1 = ShowRegionOfInterest[imgDataGray, linePath, LineStyle -> Hue[0]]](../HTMLFiles/index_412.gif){kind=small}
(sharing) In[151]:=
![pic2 = ShowLineProfile[LineProfile[imgDataGray, GraphicsRotate[linePath]]]](../HTMLFiles/index_416.gif){kind=small}
Converted by Mathematica (July 17, 2003)