GETLINESTYLE

グラフィックス関数：現在のグラフィックスの線種を返します。

モジュール：USE DFLIB

形式

result = GETLINESTYLE ( )

結果

結果の型は INTEGER(2) です。結果は，現在の線種です。

GETLINESTYLE は，線を描画する時に使用するマスク (線種) を取り出します。マスクは 16 ビット数で，各ビットは描画される線のピクセルを表します。

ビットが 1 の場合，現在のグラフィックス色と論理書き込みモードに従って対応するピクセルに色が付けられます。ビットが 0 の場合，対応するピクセルは変更されません。マスクは，線の長さ全体に対して繰り返されます。基本マスクは #FFFF (実線) です。点線は #FF00 (長いダッシュ) または #F0F0 (短いダッシュ) で表すことができます。

線種は SETLINESTYLE で設定されます。現在のグラフィック色は，SETCOLORRGB または SETCOLOR で設定されます。SETWRITEMODE は，線がどのように表示されるかに影響します。

GETLINESTYLE で取り出した線種は，LINETO，POLYGON，および RECTANGLE での直線の描画に影響しますが，ARC，ELLIPSE，または PIE での曲線の描画には影響しません。

互換性

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

関連情報

LINETO，POLYGON，RECTANGLE，SETCOLORRGB，SETFILLMASK，SETLINESTYLE，SETWRITEMODE

例

		USE DFLIB
		INTEGER(2) lstyle

		lstyle = GETLINESTYLE()
		WRITE (*, 100) lstyle, lstyle
	100	FORMAT (1X, 'Line mask in Hex ', Z4, ' and binary ', B16)
		END