Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceThere are 8 bytes in mask, and each of the 8 bits in each byte represents a pixel, creating an 8x8pattern. The first element (byte) of mask becomes the top 8 bits of the pattern, and the eighthelement (byte) of mask becomes the bottom 8 bits.During a fill operation, pixels with a bit value of 1 are set to the current graphics color, whilepixels with a bit value of 0 are unchanged. The current graphics color is set with SETCOLORRGBor SETCOLOR. The 8-byte mask is replicated over the entire fill area. If no fill mask is set (withSETFILLMASK), or if the mask is all ones, solid current color is used in fill operations.The fill mask controls the fill pattern for graphics routines (FLOODFILLRGB, PIE, ELLIPSE,POLYGON, and RECTANGLE).CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “ELLIPSE, ELLIPSE_W”, “FLOODFILLRGB, FLOODFILLRGB_W”, “PIE,PIE_W”, “POLYGON, POLYGON_W”, “RECTANGLE, RECTANGLE_W”, “SETFILLMASK”Example! Build as QuickWin or Standard GraphicsUSE IFQWININTEGER(1) style(8). array(8)INTEGER(2) istyle = 0style(1) = Z'F'style(3) = Z'F'style(5) = Z'F'style(7) = Z'F'CALL SETFILLMASK (style)...CALL GETFILLMASK (array)WRITE (*, *) 'Fill mask in bits: 'DO i = 1, 8WRITE (*, '(B8)') array(i)END DOENDGETFONTINFOGraphics Function: Returns the current font characteristics. This function is only available onWindows* systems.Module: USE IFQWIN2-124