インテル® Fortran コンパイラー XE 13.1 ユーザー・リファレンス・ガイド

MOVETO, MOVETO_W (W*S)

Graphics Subroutines: Move the current graphics position to a specified point. No drawing occurs.

Module

USE IFQWIN

CALL MOVETO (x,y,t)

CALL MOVETO_W (wx,wy,wt)

x, y

(Input) INTEGER(2). Viewport coordinates of the new graphics position.

t

(Output) Derived type xycoord. Viewport coordinates of the previous graphics position. The derived type xycoordis defined in IFQWIN.F90 as follows:

 TYPE xycoord
   INTEGER(2) xcoord  ! x coordinate
   INTEGER(2) ycoord  ! y coordinate
 END TYPE xycoord

wx, wy

(Input) REAL(8). Window coordinates of the new graphics position.

wt

(Output) Derived type wxycoord. Window coordinates of the previous graphics position. The derived type wxycoord is defined in IFQWIN.F90:

 TYPE wxycoord
   REAL(8) wx  ! x window coordinate
   REAL(8) wy  ! y window coordinate
 END TYPE wxycoord

MOVETO sets the current graphics position to the viewport coordinate ( x, y). MOVETO_W sets the current graphics position to the window coordinate ( wx, wy).

MOVETO and MOVETO_W assign the coordinates of the previous position to t and wt, respectively.

 ! Build as QuickWin or Standard Graphics ap.
 USE IFQWIN
 INTEGER(2) status, x, y
 INTEGER(4) result
 TYPE (xycoord) xy
 RESULT = SETCOLORRGB(Z'FF0000') ! blue
 x = 60
 ! Draw a series of lines
 DO y = 50, 92, 3
   CALL MOVETO(x, y, xy)
   status = LINETO(INT2(x + 20), y)
 END DO
 END

関連情報


このヘルプトピックについてのフィードバックを送信