GETFILLMASK

グラフィックス・サブルーチン：塗り潰しマスクに使われる現在のパターンを返します。

モジュール：USE DFLIB

形式

CALL GETFILLMASK (mask)

mask
(出力) INTEGER(1)。長さ 8 の 1 次元配列。

mask は 8 バイトで，各バイトの 8 ビットの各々は 8x8 パターンを作成するピクセルを表します。mask の第 1 要素 (バイト) はパターンの最上部の 8 ビットになり，第 8 要素 (バイト) は最下部の 8 ビットになります。

塗り潰し操作中，1 のビット値を持つピクセルは現在のグラフィックス色に設定され，一方，0 のビット値を持つピクセルは変更されません。現在のグラフィックス色は，SETCOLORRGB または SETCOLOR で設定されます。8 バイト・マスクは，塗り潰し領域全体に模写されます。塗り潰しマスクが設定されていない (SETFILLMASK で) 場合，または，マスクがすべて 1 の場合，現在の塗り潰し色が塗り潰し操作で使われます。

塗り潰しマスクは，グラフィックス・ルーチン (FLOODFILLRGB，PIE，ELLIPSE，POLYGON，および RECTANGLE) に対する塗り潰しパターンを制御します。

互換性

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

関連情報

ELLIPSE，FLOODFILLRGB，PIE，POLYGON，RECTANGLE，SETFILLMASK

例

	! QuickWin または Standard Graphics アプリケーションでビルドします。
	USE DFLIB
	INTEGER(1) style(8). array(8)
	INTEGER(2) i
	style = 0
	style(1) = #F
	style(3) = #F
	style(5) = #F
	style(7) = #F
	CALL SETFILLMASK (style)
	...
	CALL GETFILLMASK (array)
	WRITE (*, *) 'Fill mask in bits: '
	DO i = 1, 8
	  WRITE (*, '(B8)') array(i)
	END DO
	END