Graphics Subroutine: Sets the current text position to a specified position relative to the current text window.
USE IFQWIN
CALL SETTEXTPOSITION (row,column,t)
row |
(Input) INTEGER(2). New text row position. |
column |
(Input) INTEGER(2). New text column position. |
t |
(Output) Derived type rccoord. Previous text position. The derived type rccoordis defined in IFQWIN.F90 as follows: TYPE rccoord INTEGER(2) row ! Row coordinate INTEGER(2) col ! Column coordinate END TYPE rccoord |
Subsequent text output with the OUTTEXT function (as well as standard console I/O statements, such as PRINT and WRITE) begins at the point (row, column).
STANDARD GRAPHICS QUICKWIN GRAPHICS LIB
USE IFQWIN
TYPE (rccoord) curpos
WRITE(*,*) "Original text position"
CALL SETTEXTPOSITION (INT2(6), INT2(5), curpos)
WRITE (*,*) 'New text position'
END
Building Applications: Displaying Character-Based Text
Building Applications: Text Coordinates
Building Applications: Using Text Colors