OUTGTEXT

グラフィックス・サブルーチン:グラフィックス・モードで,後ろの空白を含んだ文字列を画面に送ります。

モジュールUSE DFLIB

形式

CALL OUTGTEXT (text)

text
(入力) CHARACTER*(*)。表示する文字列。

テキスト出力は,SETFONT で設定される現在のフォントと SETCOLORRGB または SETCOLOR で設定される現在の色を使って,現在のグラフィックス位置から開始されます。書式化は行われません。テキストを出力した後,OUTGTEXT は現在のグラフィックス位置を更新します。

OUTGTEXT を呼び出す前に,INITIALIZEFONTS を呼び出さなければなりません。

OUTGTEXT はグラフィックス関数であるため,テキスト色は SETTEXTCOLORRGB 関数ではなく SETCOLORRGB 関数に影響されます。

互換性

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

関連情報

GETFONTINFOGETGTEXTEXTENTINITIALIZEFONTS, MOVETOSETCOLORRGBSETFONTSETGTEXTROTATION

	! QuickWin または Standard Graphics アプリケーションでビルドします。
	USE DFLIB
	INTEGER(2) result
	INTEGER(4) i
	TYPE (xycoord) xys

	result = INITIALIZEFONTS()
	result = SETFONT('t''Arial''h18w10pvib')
	do i=1,6
	  CALL MOVETO(INT2(0),INT2(30*(i-1)),xys)
	  grstat=SETCOLOR(INT2(i))
	  CALL OUTGTEXT('This should be ')
	  SELECT CASE (i)
	    CASE (1)
	      CALL OUTGTEXT('Blue')
	    CASE (2)
	      CALL OUTGTEXT('Green')
	    CASE (3)
	      CALL OUTGTEXT('Cyan')
	    CASE (4)
	      CALL OUTGTEXT('Red')
	    CASE (5)
	      CALL OUTGTEXT('Magenta')
	    CASE (6)
	      CALL OUTGTEXT('Orange')
	  END SELECT
	END DO
	END