Intel® Fortran Compiler XE 13.1 User and Reference Guides
Graphics Subroutines: Move the current graphics position to a specified point. No drawing occurs.
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