Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceDuring a fill operation, pixels with a bit value of 1 are set to the current graphics color, whilepixels with a bit value of zero are set to the current background color. The current graphics coloris set with SETCOLORRGB or SETCOLOR. The 8-byte mask is replicated over the entire fillarea. If no fill mask is set (with SETFILLMASK), or if the mask is all ones, solid current color isused in fill operations.The fill mask controls the fill pattern for graphics routines (FLOODFILLRGB, PIE, ELLIPSE,POLYGON, and RECTANGLE).To change the current fill mask, determine the array of bytes that corresponds to the desired bitpattern and set the pattern with SETFILLMASK, as in the following example.Bit patternValue In maskmask(1) = Z'93'mask(2) = Z'C9'mask(3) = Z'64'mask(4) = Z'B2'mask(5) = Z'59'mask(6) = Z'2C'mask(7) = Z'96'bit 7 6 5 4 3 2 1 0mask(8) = Z'4B'CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “ELLIPSE, ELLIPSE_W”, “FLOODFILLRGB, FLOODFILLRGB_W”,“GETFILLMASK”, “PIE, PIE_W”, “POLYGON, POLYGON_W”, “RECTANGLE,RECTANGLE_W”ExampleThis program draws six rectangles, each with a different fill mask, as shown below.! Build as QuickWin or Standard Graphics Ap.USE IFQWININTEGER(1), TARGET :: style1(8) &/Z'18',Z'18',Z'18',Z'18',Z'18',Z'18',Z'18',Z'18'/INTEGER(1), TARGET :: style2(8) &/Z'08',Z'08',Z'08',Z'08',Z'08',Z'08',Z'08',Z'08'/INTEGER(1), TARGET :: style3(8) &2-404