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.

2 Intel <strong>Fortran</strong> <strong>Libraries</strong> <strong>Reference</strong>See Also: “REMAPPALETTERGB”, “SETBKCOLORRGB”, “SETCOLORRGB”,“SETBKCOLOR”, “SETCOLOR”Example! Build as QuickWin or Standard Graphics App.USE IFQWININTEGER(4) colors(3)INTEGER(2) statuscolors(1) = Z'00FFFF' ! yellowcolors(2) = Z'FFFFFF' ! bright whitecolors(3) = 0 ! blackstatus = REMAPALLPALETTERGB(colors)status = REMAPPALETTERGB(INT2(47), Z'45A315')ENDREMAPPALETTERGBGraphics Function: Remaps one color index to an RGB color value. This function is onlyavailable on Windows* systems.Module: USE IFQWINSyntaxresult = REMAPPALETTERGB (index, color)index(Input) INTEGER(4). Color index to be reassigned an RGB color.color(Input) INTEGER(4). RGB color value to assign to a color index.Results:The result type is INTEGER(4). The result value is the previous color assigned to the index.The REMAPPALETTERGB function remaps one of the available color indexes (up to 236; 20indexes are reserved by the operating system). The color argument is the RGB color value toassign. The default mapping between the first 16 indexes and color values is shown in thefollowing table. The 16 default colors are provided with symbolic constants in IFQWIN.F90.Index Color Index Color0 $BLACK 8 $GRAY1 $BLUE 9 $LIGHTBLUE2-374

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

Saved successfully!

Ooh no, something went wrong!