マウスによる入力

ユーザーがマウスを使って図形を描くプログラムを作るには、
ユーザーがマウスで入力した位置の座標を取得するための手続きや関数を使います。

クリックされた座標を取得する

手続き「GetPt」はマウスクリックされるまでプログラムは待機し
クリックされたらその座標を返します。
以下のプログラムを実行するとマウスカーソルの形状が「+」に変わります。
用紙の上をクリックすると、クリックした位置に基準点が配置されます。
例題プログラム

PROCEDURE TEST;
VAR
		x,y:REAL;
BEGIN
		Getpt(x,y);
		Locus(x,y);
END;
Run(TEST);

上記プログラムの実行結果

マウスクリックした2点の座標を取得する。

手続き「GetLine」は1点目をクリックした後、2点目がクリックされるまでプログラムは待機します。
環境設定の「クリック・ドラッグ描画」が「ON」の時は、1点目と2点目がドラッグされるまで待機します。
2点目がクリックされたら、1点目と2点目の座標を返します。
以下のプログラムを実行するとマウスカーソルの形状が「+」に変わります。
用紙の上をクロックすると、クリックした点から線が伸びます。
もう一回クリックすると　直線が描かれます。
例題プログラム

PROCEDURE TEST;
VAR
		x1,y1,x2,y2:REAL;
BEGIN
		GetLine(x1,y1,x2,y2);
		MoveTo(x1,y1);
		LineTo(x2,y2);
END;
Run(TEST);

上記プログラムの実行結果

マウスで指定した四角形の座標を取得

手続き「GetRect」は1点目をクリック後四角形の輪郭が表示され、2点目がクリックされるまでプログラムは待機します。
2点目がクリックされたら、四角形の座標を返します。
以下のプログラムを実行すると、マウスカーソルの形状が「+」に変わります。
用紙の上をクリックすると、四角形の輪郭が表示されます。
もう一回クリックすると、四角形が描かれます。

PROCEDURE TEST;
VAR
		x1,y1,x2,y2:REAL;
BEGIN
		GetRect(x1,y1,x2,y2);
		Rect(x1,y1,x2,y2);
END;
Run(TEST);

上記プログラムの実行結果