SETGTEXTROTATION

Graphics Subroutine: Sets the orientation angle of the font text output in degrees. The current orientation is used in calls to OUTGTEXT.

Module: USE DFLIB

Syntax

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.

Compatibility

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

See Also: GETGTEXTROTATION

Example

 ! Build as a Graphics ap.
 USE DFLIB
 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(#008080)
 CALL OUTGTEXT('Slanted text')
 END