Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2text(Input) Character*(*). Text to be analyzed.Results:The result type is INTEGER(2). The result is the width of text in pixels if successful; otherwise, –1(for example, if fonts have not been initialized with INITIALIZEFONTS).This function is useful for determining the size of text that uses proportionally spaced fonts. Youmust initialize fonts with INITIALIZEFONTS before calling any font-related function, includingGETGTEXTEXTENT.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETFONTINFO”, “OUTGTEXT”, “SETFONT”, “INITIALIZEFONTS”,“GETGTEXTROTATION”Example! Build as QuickWin or Standard GraphicsUSE IFQWININTEGER(2) status, pwidthCHARACTER(80) textstatus= INITIALIZEFONTS( )status= SETFONT('t''Arial''h22w10')pwidth= GETGTEXTEXTENT('How many pixels wide is this?')WRITE(*,*) pwidthENDGETGTEXTROTATIONGraphics Function: Returns the current orientation of the font text output by OUTGTEXT. Thisfunction is only available on Windows* systems.Module: USE IFQWINSyntaxresult = GETGTEXTROTATION ( )Results:The result is of type INTEGER(4). It is the current orientation of the font text output in tenths ofdegrees. Horizontal is 0°, and angles increase counterclockwise so that 900 tenths of degrees (90°)is straight up, 1800 tenths of degrees (180°) is upside-down and left, 2700 tenths of degrees (270°)is straight down, and so forth.2-127