12.07.2015 Views

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

Intel® Fortran Libraries Reference

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Descriptions of the Library Routines 2! Build as QuickWin or Standard Graphics ap.USE IFQWININTEGER(2) status, x1, y1, x2, y2INTEGER(4) oldcolorx1 = 10; y1 = 50x2 = 170; y2 = 150! Draw full ellipse in whitestatus = ELLIPSE($GBORDER, x1, y1, x2, y2)oldcolor = SETCOLORRGB(Z'FF0000') !blueWRITE(*,*) "Hit enter"READ(*,*)CALL CLEARSCREEN($GCLEARSCREEN) ! clear screenCALL SETCLIPRGN( INT2(0), INT2(0), &INT2(150), INT2(125))! only part of ellipse inside clip region drawn nowstatus = ELLIPSE($GBORDER, x1, y1, x2, y2)ENDThe following figure shows the output of this program.Bounding rectangleClip regionArc of clipped ellipseSETCOLORGraphics Function: Sets the current graphics color index. This function is only available onWindows* systems.Module: USE IFQWIN2-391

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!