GETWRITEMODE

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

Module: USE DFLIB

Syntax

result = GETWRITEMODE( )

Results:

The result is of type 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 DFLIB.F90 (in the \DF98\INCLUDE subdirectory).

The write mode is set with SETWRITEMODE.

Compatibility

STANDARD GRAPHICS QUICKWIN GRAPHICS LIB

See Also: SETWRITEMODE, SETLINESTYLE, LINETO, POLYGON, PUTIMAGE, RECTANGLE, SETCOLORRGB, SETFILLMASK, GRSTATUS

Example

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