GetLine

GetLine　　　　　User Interactive

Declaration:
　PROCEDURE　GetLine　(　VAR　p1X　:REAL;
　　　　　　　　　　　　　VAR　p1Y　:REAL;
　　　　　　　　　　　　　VAR　p2X　:REAL;
　　　　　　　　　　　　　VAR　p2Y　:REAL
　　　　　　　　　　　　　) ;

Description:

Procedure GetLine returns two user selected points, 
and draws a temporary "rubberband" line when prompting for the second point.
This cannot be used if there is a function anywhere in the calling chain.

説明
　マウスで2点を指示されるまで待機し、始点と終点の座標を返します。

Parameters: