Intel® Fortran Compiler Classic and Intel® Fortran Compiler Developer Guide and Reference

ID 767251
Date 3/22/2024
Public
Document Table of Contents

SETGTEXTROTATION

Graphics Subroutine: Sets the orientation angle of the font text output in degrees. The current orientation is used in calls to OUTGTEXT. This routine is only available for Windows.

Module

USE IFQWIN

CALL SETGTEXTROTATION (degree-tenths)

degree-tenths

(Input) INTEGER(4). Angle of orientation, in tenths of degrees, of the font text output.

The orientation of the font text output is set in tenths of degrees. Horizontal is 0°, and angles increase counterclockwise so that 900 (90°) is straight up, 1800 (180°) is upside down and left, 2700 (270°) is straight down, and so forth. If the user specifies a value greater than 3600 (360°), the subroutine takes a value equal to:

  MODULO (user-specified tenths of degrees, 3600) 

Although SETGTEXTROTATION accepts arguments in tenths of degrees, only increments of one full degree differ visually from each other on the screen.

Bitmap fonts cannot be rotated; TruType fonts should be used instead.

Example

 ! Build as a Graphics ap.
 USE IFQWIN
 INTEGER(2) fontnum, numfonts
 INTEGER(4) oldcolor, deg
 TYPE (xycoord) pos
 numfonts = INITIALIZEFONTS ( )
 fontnum = SETFONT ('t''Arial''h18w10i')
 CALL MOVETO (INT2(10), INT2(30), pos)
 CALL OUTGTEXT('Straight text')
 deg = -1370
 CALL SETGTEXTROTATION(deg)
 oldcolor = SETCOLORRGB(Z'008080')
 CALL OUTGTEXT('Slanted text')
 END

See Also