MOVETO, MOVETO_W (W*32, W*64)

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

Module: USE IFQWIN

Syntax

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 xycoord is 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 as follows:

 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.

Compatibility

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

See Also

GETCURRENTPOSITION, LINETO, OUTGTEXT, Building Applications: Drawing Lines on the Screen, Building Applications: SHOWFONT.F90 Example, Building Applications: Using Fonts from the Graphics Library Overview

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