Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2Text output begins at the current graphics position, using the current font set with SETFONT andthe current color set with SETCOLORRGB or SETCOLOR. No formatting is provided. After itoutputs the text, OUTGTEXT updates the current graphics position.Before you call OUTGTEXT, you must call the INITIALIZEFONTS function.Because OUTGTEXT is a graphics function, the color of text is affected by the SETCOLORRGBfunction, not by SETTEXTCOLORRGB.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETFONTINFO”, “GETGTEXTEXTENT”, “INITIALIZEFONTS”, “MOVETO,MOVETO_W”, “SETCOLORRGB”, “SETFONT”, “SETGTEXTROTATION”Example! build as a QuickWin App.USE IFQWININTEGER(2) resultINTEGER(4) iTYPE (xycoord) xysresult = INITIALIZEFONTS()result = SETFONT('t''Arial''h18w10pvib')do i=1,6CALL MOVETO(INT2(0),INT2(30*(i-1)),xys)grstat=SETCOLOR(INT2(i))CALL OUTGTEXT('This should be ')SELECT CASE (i)CASE (1)CALL OUTGTEXT('Blue')CASE (2)CALL OUTGTEXT('Green')CASE (3)CALL OUTGTEXT('Cyan')CASE (4)CALL OUTGTEXT('Red')CASE (5)CALL OUTGTEXT('Magenta')CASE (6)CALL OUTGTEXT('Orange')END SELECT2-237