GETCURRENTPOSITION, GETCURRENTPOSITION_W (W*32, W*64)

Module

USE IFQWIN

Syntax

CALL GETCURRENTPOSITION (t)

CALL GETCURRENTPOSITION_W (wt)

t	(Output) Derived type xycoord. Viewport coordinates of current 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
wt	(Output) Derived type wxycoord. Window coordinates of current graphics position. The derived type wxycoordis defined in IFQWIN.F90 as follows: TYPE wxycoord REAL(8) wx ! x-coordinate REAL(8) wy ! y-coordinate END TYPE wxycoord

LINETO, MOVETO, and OUTGTEXT all change the current graphics position. It is in the center of the screen when a window is created.

Graphics output starts at the current graphics position returned by GETCURRENTPOSITION or GETCURRENTPOSITION_W. This position is not related to normal text output (from OUTTEXT or WRITE, for example), which begins at the current text position (see SETTEXTPOSITION). It does, however, affect graphics text output from OUTGTEXT.

Compatibility

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

Example

! Program to demonstrate GETCURRENTPOSITION

USE IFQWIN

TYPE (xycoord) position

INTEGER(2) result

result = LINETO(INT2(300), INT2(200))

CALL GETCURRENTPOSITION( position )

IF (position%xcoord .GT. 50) THEN

CALL MOVETO(INT2(50), position%ycoord, position)

WRITE(*,*) "Text unaffected by graphics position"

END IF

result = LINETO(INT2(300), INT2(200))

END