Intel® Fortran Libraries Reference
Intel® Fortran Libraries Reference Intel® Fortran Libraries Reference
2 Intel Fortran Libraries Referencedegree-tenths(Input) INTEGER(4). Angle of orientation, in tenths of degrees, of the font text output.The orientation of the font text output is set in tenths of degrees. Horizontal is 0°, and anglesincrease counterclockwise so that 900 (90°) is straight up, 1800 (180°) is upside down and left,2700 (270°) is straight down, and so forth. If the user specifies a value greater than 3600 (360°),the subroutine takes a value equal to:MODULO (user-specified tenths of degrees, 3600)Although SETGTEXTROTATION accepts arguments in tenths of degrees, only increments of onefull degree differ visually from each other on the screen.Bitmap fonts cannot be rotated; TruType fonts should be used instead.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETGTEXTROTATION”Example! Build as a Graphics ap.USE IFQWININTEGER(2) fontnum, numfontsINTEGER(4) oldcolor, degTYPE (xycoord) posnumfonts = INITIALIZEFONTS ( )fontnum = SETFONT ('t''Arial''h18w10i')CALL MOVETO (INT2(10), INT2(30), pos)CALL OUTGTEXT('Straight text')deg = -1370CALL SETGTEXTROTATION(deg)oldcolor = SETCOLORRGB(Z'008080')CALL OUTGTEXT('Slanted text')ENDSETLINESTYLEGraphics Subroutine: Sets the current line style to a new line style. This subroutine is onlyavailable on Windows* systems.Module: USE IFQWINSyntaxCALL SETLINESTYLE (mask)2-410
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
- Page 412 and 413: 2 Intel Fortran Libraries Reference
- Page 414 and 415: 2 Intel Fortran Libraries Reference
- Page 416 and 417: 2 Intel Fortran Libraries Reference
- Page 418 and 419: 2 Intel Fortran Libraries Reference
- Page 420 and 421: 2 Intel Fortran Libraries Reference
- Page 422 and 423: 2 Intel Fortran Libraries Reference
- Page 424 and 425: 2 Intel Fortran Libraries Reference
- Page 426 and 427: 2 Intel Fortran Libraries Reference
- Page 428 and 429: 2 Intel Fortran Libraries Reference
- Page 430 and 431: 2 Intel Fortran Libraries Reference
- Page 432 and 433: 2 Intel Fortran Libraries Reference
- Page 434 and 435: 2 Intel Fortran Libraries Reference
- Page 436 and 437: 2 Intel Fortran Libraries Reference
- Page 438 and 439: 2 Intel Fortran Libraries Reference
- Page 440 and 441: 2 Intel Fortran Libraries Reference
- Page 442 and 443: 2 Intel Fortran Libraries Reference
- Page 444 and 445: 2 Intel Fortran Libraries Reference
- Page 446 and 447: 2 Intel Fortran Libraries Reference
- Page 448 and 449: 2 Intel Fortran Libraries Reference
- Page 450 and 451: 2 Intel Fortran Libraries Reference
- Page 452 and 453: 2 Intel Fortran Libraries Reference
- Page 454 and 455: 2 Intel Fortran Libraries Reference
- Page 456 and 457: 2 Intel Fortran Libraries Reference
- Page 458 and 459: 2 Intel Fortran Libraries Reference
- Page 460 and 461: 2 Intel Fortran Libraries Reference
- Page 464 and 465: 2 Intel Fortran Libraries Reference
- Page 466 and 467: 2 Intel Fortran Libraries Reference
- Page 468 and 469: 2 Intel Fortran Libraries Reference
- Page 470 and 471: 2 Intel Fortran Libraries Reference
- Page 472 and 473: 2 Intel Fortran Libraries Reference
- Page 474 and 475: 2 Intel Fortran Libraries Reference
- Page 476 and 477: 2 Intel Fortran Libraries Reference
- Page 478 and 479: 2 Intel Fortran Libraries Reference
- Page 480 and 481: 2 Intel Fortran Libraries Reference
- Page 482 and 483: 2 Intel Fortran Libraries Reference
- Page 484 and 485: 2 Intel Fortran Libraries Reference
- Page 486 and 487: 2 Intel Fortran Libraries Reference
- Page 488 and 489: 2 Intel Fortran Libraries Reference
- Page 490 and 491: 2 Intel Fortran Libraries Reference
- Page 492 and 493: 2 Intel Fortran Libraries Reference
- Page 494 and 495: 2 Intel Fortran Libraries Reference
- Page 496 and 497: 2 Intel Fortran Libraries Reference
- Page 498 and 499: 2 Intel Fortran Libraries Reference
- Page 500 and 501: 2 Intel Fortran Libraries Reference
- Page 502 and 503: 2 Intel Fortran Libraries Reference
- Page 504 and 505: 2 Intel Fortran Libraries Reference
- Page 506 and 507: 2 Intel Fortran Libraries Reference
- Page 508 and 509: 2 Intel Fortran Libraries Reference
- Page 510 and 511: 2 Intel Fortran Libraries Reference
2 Intel <strong>Fortran</strong> <strong>Libraries</strong> <strong>Reference</strong>degree-tenths(Input) INTEGER(4). Angle of orientation, in tenths of degrees, of the font text output.The orientation of the font text output is set in tenths of degrees. Horizontal is 0°, and anglesincrease counterclockwise so that 900 (90°) is straight up, 1800 (180°) is upside down and left,2700 (270°) is straight down, and so forth. If the user specifies a value greater than 3600 (360°),the subroutine takes a value equal to:MODULO (user-specified tenths of degrees, 3600)Although SETGTEXTROTATION accepts arguments in tenths of degrees, only increments of onefull degree differ visually from each other on the screen.Bitmap fonts cannot be rotated; TruType fonts should be used instead.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETGTEXTROTATION”Example! Build as a Graphics ap.USE IFQWININTEGER(2) fontnum, numfontsINTEGER(4) oldcolor, degTYPE (xycoord) posnumfonts = INITIALIZEFONTS ( )fontnum = SETFONT ('t''Arial''h18w10i')CALL MOVETO (INT2(10), INT2(30), pos)CALL OUTGTEXT('Straight text')deg = -1370CALL SETGTEXTROTATION(deg)oldcolor = SETCOLORRGB(Z'008080')CALL OUTGTEXT('Slanted text')ENDSETLINESTYLEGraphics Subroutine: Sets the current line style to a new line style. This subroutine is onlyavailable on Windows* systems.Module: USE IFQWINSyntaxCALL SETLINESTYLE (mask)2-410