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

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

GETWRITEMODE

Graphics Function: Returns the current logical write mode, which is used when drawing lines with the LINETO, POLYGON, and RECTANGLE functions. This routine is only available for Windows.

Module

USE IFQWIN

result = GETWRITEMODE( )

Results

The result type is INTEGER(2). The result is the current write mode. Possible return values are:

  • $GPSET - Causes lines to be drawn in the current graphics color. (default)

  • $GAND - Causes lines to be drawn in the color that is the logical AND of the current graphics color and the current background color.

  • $GOR - Causes lines to be drawn in the color that is the logical OR of the current graphics color and the current background color.

  • $GPRESET - Causes lines to be drawn in the color that is the logical NOT of the current graphics color.

  • $GXOR - Causes lines to be drawn in the color that is the logical exclusive OR (XOR) of the current graphics color and the current background color.

The default value is $GPSET. These constants are defined in IFQWIN.F90.

The write mode is set with SETWRITEMODE.

Example

! Build as QuickWin or Standard Graphics App.
   USE IFQWIN
   INTEGER(2) mode
   mode = GETWRITEMODE()
   END