Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2• $GR2_NOT• $GR2_XORPEN (same as $GXOR)• $GR2_NOTMASKPEN• $GR2_MASKPEN (same as $GAND)• $GR2_NOTXORPEN• $GR2_NOP• $GR2_MERGENOTPEN• $GR2_COPYPEN (same as $GPSET)• $GR2_MERGEPENNOT• $GR2_MERGEPEN (same as $GOR)• $GR2_WHITEResults:The result type is INTEGER(2). The result is the previous write mode if successful; otherwise, -1.The current graphics color is set with SETCOLORRGB (or SETCOLOR) and the currentbackground color is set with SETBKCOLORRGB (or SETBKCOLOR). As an example, supposeyou set the background color to yellow (Z'00FFFF') and the graphics color to purple (Z'FF00FF')with the following commands:oldcolor = SETBKCOLORRGB(Z'00FFFF')CALL CLEARSCREEN($GCLEARSCREEN)oldcolor = SETCOLORRGB(Z'FF00FF')If you then set the write mode with the $GAND option, lines are drawn in red (Z'0000FF'); withthe $GOR option, lines are drawn in white (Z'FFFFFF'); with the $GXOR option, lines are drawnin turquoise (Z'FFFF00'); and with the $GPRESET option, lines are drawn in green (Z'00FF00').Setting the write mode to $GPSET causes lines to be drawn in the graphics color.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETWRITEMODE”, “GRSTATUS”, “LINETO, LINETO_W”, “POLYGON,POLYGON_W”, “PUTIMAGE, PUTIMAGE_W”, “RECTANGLE, RECTANGLE_W”,“SETCOLOR”, “SETLINESTYLE”Example! Build as a Graphics ap.USE IFQWININTEGER(2) result, oldmodeINTEGER(4) oldcolorTYPE (xycoord) xy2-437