グラフィックス・サブルーチン:指定した物理座標点にビューポート座標原点 (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
関連情報
GETCURRENTPOSITION,GETPHYSCOORD,GETVIEWCOORD,GETWINDOWCOORD,GRSTATUS,SETCLIPRGN,SETVIEWPORT
例
! QuickWin または Standard Graphics アプリケーションでビルドします。 USE DFLIB TYPE ( xycoord ) xy CALL SETVIEWORG(INT2(30), INT2(30), xy)