GetLine の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• GetLine へ行く。
• GetLine の差分を削除

**GetLine　　　　　User Interactive [#jfc62bd1]
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:
|BGCOLOR(white):|BGCOLOR(white):|BGCOLOR(white):|c
|p1 	|Returns coordinates of first user click. |	始点の座標|
|p2 	|Returns coordinates of second user click. |	終点の座標|