Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2GETCURRENTPOSITION, GETCURRENTPOSITION_WGraphics Subroutines: Return the coordinates of the current graphics position. Thesesubroutines are only available on Windows* systems.Module: USE IFQWINSyntaxCALL GETCURRENTPOSITION (t)CALL GETCURRENTPOSITION_W (wt)t(Output) Derived type xycoord. Viewport coordinates of current graphics position. The derivedtype xycoord is defined in IFQWIN.F90 as follows:TYPE xycoordINTEGER(2) xcoord ! x-coordinateINTEGER(2) ycoord ! y-coordinateEND TYPE xycoordwt(Output) Derived type wxycoord. Window coordinates of current graphics position. Thederived type wxycoord is defined in IFQWIN.F90 as follows:TYPE wxycoordREAL(8) wx ! x-coordinateREAL(8) wy ! y-coordinateEND TYPE wxycoordLINETO, MOVETO, and OUTGTEXT all change the current graphics position. It is in the centerof the screen when a window is created.Graphics output starts at the current graphics position returned by GETCURRENTPOSITION orGETCURRENTPOSITION_W. This position is not related to normal text output (fromOUTTEXT or WRITE, for example), which begins at the current text position (seeSETTEXTPOSITION). It does, however, affect graphics text output from OUTGTEXT.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “LINETO, LINETO_W”, “MOVETO, MOVETO_W”, “OUTGTEXT”,“SETTEXTPOSITION”, “GETTEXTPOSITION”Example! Program to demonstrate GETCURRENTPOSITIONUSE IFQWIN2-109