GETARCINFO

グラフィックス関数:最後に描画した円弧やパイの終点 (ビューポート座標) を決定します。

モジュールUSE DFLIB

形式

result = GETARCINFO (pstart, pend, ppaint)

pstart
(出力) 構造型 xycoord。円弧の始点のビューポート座標。

pend
(出力) 構造型 xycoord。円弧の終点のビューポート座標。

ppaint
(出力) 構造型 xycoord。塗り潰しが開始される点のビューポート座標。

結果

結果の型は INTEGER(2) です。成功の場合,結果は非ゼロです。CLEARSCREEN または SETWINDOWCONFIG の最後の呼び出しが成功した後,または,新しいビューポートが選択された後,ARC または PIE 関数の呼び出しに失敗した場合,結果はゼロです。

GETARCINFO は,xycoord 構造型の pstartpendARC または PIE の最後の呼び出しで描画された円弧の終点 (ビューポート座標) を含むように更新します。xycoord 構造型 (\DF98\INCLUDE サブディレクトリの DFLIB.F90 に定義) は,以下のようになります。

	TYPE xycoord
	  INTEGER(2) xcoord
	  INTEGER(2) ycoord
	END TYPE xycoord

ppaint に返される値は,パイの塗り潰しが開始される点を示しています。境界色とは違った色でパイを塗り潰すためにこれを使うことができます。GETARCINFO を呼び出した後,SETCOLORRGB を使って色を変更します。FLOODFILLRGB 関数の引数として,ppaint の座標に従って新しい色を使用します。

互換性

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

関連情報

ARCFLOODFILLRGBGETCOLORRGBGRSTATUSPIESETCOLORRGB

	! QuickWin または Standard Graphics アプリケーションでビルドします。
	USE DFLIB
	INTEGER(2) status, x1, y1, x2, y2, x3, y3, x4, y4
	TYPE (xycoord) xystart, xyend, xyfillpt
	x1 = 80; y1 = 50
	x2 = 240; y2 = 150
	x3 = 120; y3 = 80
	x4 = 90; y4 = 180

	status = ARC(x1, y1, x2, y2, x3, y3, x4, y4)
	status = GETARCINFO(xystart, xyend, xyfillpt)
	END