Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceUSE IFQWININTEGER(4) oldcolorINTEGER(2) status, x1, y1, x2, y2x1 = 80; y1 = 50x2 = 240; y2 = 150oldcolor = SETBKCOLORRGB(Z'FF0000') !blueoldcolor = SETCOLORRGB(Z'FF') ! redCALL CLEARSCREEN ($GCLEARSCREEN)status = ELLIPSE($GBORDER, x1, y1, x2, y2)ENDSETCLIPRGNGraphics Subroutine: Limits graphics output to part of the screen. This subroutine is onlyavailable on Windows* systems.Module: USE IFQWINSyntaxCALL SETCLIPRGN (x1, y1, x2, y2)x1, y1(Input) INTEGER(2). Physical coordinates for upper-left corner of clipping region.x2, y2(Input) INTEGER(2). Physical coordinates for lower-right corner of clipping region.The SETCLIPRGN function limits the display of subsequent graphics output and font text outputto that which fits within a designated area of the screen (the "clipping region"). The physicalcoordinates (x1, y1) and (x2, y2) are the upper-left and lower-right corners of the rectangle thatdefines the clipping region. The SETCLIPRGN function does not change the viewport-coordinatesystem; it merely masks graphics output to the screen.SETCLIPRGN affects graphics and font text output only, such as OUTGTEXT. To mask thescreen for text output using OUTTEXT, use SETTEXTWINDOW.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETPHYSCOORD”, “GRSTATUS”, “SETTEXTWINDOW”, “SETVIEWORG”,“SETVIEWPORT”, “SETWINDOW”ExampleThis program draws an ellipse lying partly within a clipping region, as shown below.2-390