# GETWRITEMODE (W*S)

Graphics Function: Returns the current logical write mode, which is used when drawing lines with the LINETO, POLYGON, and RECTANGLE functions.

## 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

Parent topic: Graphics Library Routines

## See Also

SETWRITEMODE
SETLINESTYLE
LINETO
POLYGON
PUTIMAGE
RECTANGLE
SETCOLORRGB
SETFILLMASK
GRSTATUS