Intel® Fortran Libraries Reference

2 Intel Fortran Libraries Referenceblue = 1status = SETCOLOR(red)status = RECTANGLE( $GBORDER, x1, y1, x2, y2 )bcolor = GETCOLOR()status = SETCOLOR (blue)xinterior = 160; yinterior = 100status = FLOODFILL (xinterior, yinterior, bcolor)ENDFLOODFILLRGB, FLOODFILLRGB_WGraphics Functions: Fill an area using the current Red-Green-Blue (RGB) color and fill mask.These functions are only available on Windows* systems.Module: USE IFQWINSyntaxresult = FLOODFILLRGB (x, y, color)result = FLOODFILLRGB_W (wx, wy, color)x, y(Input) INTEGER(2). Viewport coordinates for fill starting point.color(Input) INTEGER(4). RGB value of the boundary color.wx, wy(Input) REAL(8). Window coordinates for fill starting point.Results:The result type is INTEGER(4). The result is a nonzero value if successful; otherwise, 0 (occurs ifthe fill could not be completed, or if the starting point lies on a pixel with the boundary colorcolor, or if the starting point lies outside the clipping region).FLOODFILLRGB begins filling at the viewport-coordinate point (x, y). FLOODFILLRGB_Wbegins filling at the window-coordinate point (wx, wy). The fill color used by FLOODFILLRGBand FLOODFILLRGB_W is set by SETCOLORRGB. You can obtain the current fill color bycalling GETCOLORRGB.If the starting point lies inside a figure, the interior is filled; if it lies outside a figure, thebackground is filled. In both cases, the fill color is the current color set by SETCOLORRGB. Thestarting point must be inside or outside the figure, not on the figure boundary itself. Filling occursin all directions, stopping at pixels of the boundary color color.2-80