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

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

SETLINESTYLE

Graphics Subroutine: Sets the current line style to a new line style. This routine is only available for Windows.

Module

USE IFQWIN

CALL SETLINESTYLE (mask)

mask

(Input) INTEGER(2). Desired Quickwin line-style mask. (See the table below.)

The mask is mapped to the style that most closely equivalences the percentage of the bits in the mask that are set. The style produces lines that cover a certain percentage of the pixels in that line.

SETLINESTYLE sets the style used in drawing a line. You can choose from the following styles:

QuickWin Mask

Internal Windows* Style

Selection Criteria

Appearance

0xFFFF

PS_SOLID

16 bits on

____________

0xEEEE

PS_DASH

11 to 15 bits on

----------------

0xECEC

PS_DASHDOT

10 bits on

-.-.-.-.-.-.-.-.-.-.

0xECCC

PS_DASHDOTDOT

9 bits on

-..-..-..-..-..-..-..

0xAAAA

PS_DOT

1 to 8 bits on

........................

0x0000

PS_NULL

0 bits on

SETLINESTYLE affects the drawing of straight lines as in LINETO, POLYGON, and RECTANGLE, but not the drawing of curved lines as in ARC, ELLIPSE, or PIE.

The current graphics color is set with SETCOLORRGB or SETCOLOR. SETWRITEMODE affects how the line is displayed.

Example

! Build as a Graphics ap.
 USE IFQWIN
 INTEGER(2)     status, style
 TYPE (xycoord) xy

 style = Z'FFFF'
 CALL SETLINESTYLE(style)
 CALL MOVETO(INT2(50), INT2(50), xy )
 status = LINETO(INT2(300), INT2(300))
 END