Intel® Fortran Compiler 18.0 Developer Guide and Reference
Graphics Subroutine: Sets the current line style to a new line style.
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.
! 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