# 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 `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.
ws | (Output) Derived type `wxycoord`. Viewport coordinates of the previous graphics position. The derived type `wxycoord`is 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

Parent topic: Graphics Library Routines

## See Also

GETCURRENTPOSITION
LINETO
OUTGTEXT