Visible to Intel only — GUID: GUID-D6FE1AB1-6B2D-47BF-BB96-E5467792D50E
Visible to Intel only — GUID: GUID-D6FE1AB1-6B2D-47BF-BB96-E5467792D50E
MOVETO, MOVETO_W
Graphics Subroutines: Move the current graphics position to a specified point. No drawing occurs. These routines are only available for Windows.
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.
! 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