SETVIEWORG

グラフィックス・サブルーチン:指定した物理座標点にビューポート座標原点 (0, 0) を移動します。

モジュールUSE DFLIB

形式

CALL SETVIEWORG (x, y, t)

x, y
(入力) INTEGER(2)。新しいビューポート原点の物理座標。

t
(出力) 構造型 xycoord。以前のビューポート原点の物理座標。xycoord 構造型 (\DF98\INCLUDE サブディレクトリの DFLIB.F90 に定義) は,以下のようになります。

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

xycoord 構造型 t に以前のビューポート原点の物理座標が返されます。

互換性

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

関連情報

GETCURRENTPOSITIONGETPHYSCOORDGETVIEWCOORDGETWINDOWCOORDGRSTATUSSETCLIPRGNSETVIEWPORT

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

	CALL SETVIEWORG(INT2(30), INT2(30), xy)