MOVETO, MOVETO

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,s)

x, y

(Input) INTEGER(2). Viewport coordinates of the new graphics position.

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

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

MOVETO, MOVETO_W (W*S)

Module

Example

See Also