Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2mask(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 themask 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 Appearance0xFFFF 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 onSETLINESTYLE affects the drawing of straight lines as in LINETO, POLYGON, andRECTANGLE, but not the drawing of curved lines as in ARC, ELLIPSE, or PIE.The current graphics color is set with SETCOLORRGB or SETCOLOR. SETWRITEMODEaffects how the line is displayed.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETLINESTYLE”, “GRSTATUS”, “LINETO, LINETO_W”, “POLYGON,POLYGON_W”, “RECTANGLE, RECTANGLE_W”, “SETCOLOR”, “SETWRITEMODE”Example! Build as a Graphics ap.USE IFQWININTEGER(2) status, styleTYPE (xycoord) xystyle = Z'FFFF'CALL SETLINESTYLE(style)CALL MOVETO(INT2(50), INT2(50), xy )status = LINETO(INT2(300), INT2(300))END2-411