Intel® Fortran Libraries Reference

2 Intel Fortran Libraries ReferenceIf you use color indexes, you are restricted to the colors available in the palette, at most 256. Somedisplay adapters (SVGA and true color) are capable of creating 262,144 (256K) colors or more. Toaccess any available color, you need to specify an explicit RGB value with an RGB color function,rather than a palette index with a non-RGB color function.CompatibilitySTANDARD GRAPHICS QUICKWIN GRAPHICS LIBSee Also: “GETPIXELRGB, GETPIXELRGB_W”, “GETPIXELSRGB”, “SETCOLORRGB”,“SETPIXELSRGB”Example! Build as a Graphics ap.USE IFQWININTEGER(2) x, yINTEGER(4) colorDO i = 10, 30, 10SELECT CASE (i)CASE(10)color = Z'0000FF'CASE(20)color = Z'00FF00'CASE (30)color = Z'FF0000'END SELECT! Draw pixels.DO y = 50, 180, 2status = SETPIXELRGB( x, y, color )x = x + 2END DOEND DOREAD (*,*) ! Wait for ENTER to be pressedENDSETPIXELSGraphics Subroutine: Sets the color indexes of multiple pixels. This subroutine is onlyavailable on Windows* systems.Module: USE IFQWIN2-418