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 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.

Compatibility

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

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

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