インテル® Fortran コンパイラー 19.0 デベロッパー・ガイドおよびリファレンス

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,s)

CALL MOVETO_W (wx,wy,ws)

x, y

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

s

(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.

ws

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

 TYPE wxycoord
   DOUBLE PRECISION WX,WY
   STRUCTURE/WXYCOORD/
     DOUBLE PRECISION WX
     DOUBLE PRECISION WY
   END STRUCTURE
 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 s.

Example

 ! 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

See Also