MOVETO, MOVETO_W

Graphics Subroutine: Moves the current graphics position to a specified point. No drawing occurs.

Module: USE DFLIB

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 DFLIB.F90 (in the \DF98\INCLUDE subdirectory) 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 DFLIB.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

Example

 ! Build as QuickWin or Standard Graphics ap.
 USE DFLIB
 INTEGER(2) status, x, y
 INTEGER(4) result
 TYPE (xycoord) xy
 RESULT = SETCOLORRGB(#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